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News and Reviews 


by Mike Dunn, co-Editor 

The big news, as | am sure you all know, is the Atari 800XL has 
dropped in price to $120 and the 1050 drive to $180 — only $300 for a 
complete disk-based computer system! Atari plans on selling 500,000 
during the holiday season. This new Atari, | hear, is not exactly like 
our old 800XL's. They are disposable — no sockets, everything 
soldered in, and if anything goes wrong during the warranty period, 
they just give you a new one. In January, at the CES show, will be an- 
nounced aii kinds of new 16 and 32 bit computers, to compete with 
the Macintosh for under $1000. 

We have several new disks to end out the year. Best of ACE 
#10-Games is filled with most of the games since the July issue. We 
have not been able to make a “run-time” version of “Double-bounce” 
by Stan Ockers, but the rest is there, including run-time Action! 
games. Best of ACE #11-Utilities includes all the utility type programs 
since July, plus the ultimate version of Stan Ocker's “TinyText” with a 
80 column display, done by Neville Williams from Australia and with 
complete documentation. From the Jacksonville ACE group, a well 
documented disk filled with Modem programs, including one allowing 
you to download programs from CompuServe with an Atari Modem — 
but not from Bulletin Boards. Please read Ron Ness’ article about the 
exchange library. 

Last month, | reviewed BossXL (Allen Macroware, POB 2205, 
Redondo Beach, CA 90278, $80), and have now received their new 
board allowing you to switch to either the BossXL or to the original 
OS. Works well, now included in the package. PrintWiz by Allen 
macroware is what we use to dump the pictures for the newsletter, 
and Typesetter (DataArts, POB 1613, Troy, NY 12181) makes all the 
fancy titles you see on the listing pages. Both are excellent products. 

Gary Furr, the author of the print drivers for AtariWriter, will sell you 
for $10 the driver for your printer. He has drivers for the EPSONS, 
Okidatas, IDS, Gemini, Mannesman-Tally, C. Itoh and Nec., Silver 
Reed, etc. Write Gary at POB 1073 Mountain View, CA 94042. 
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This month, we received two books | can highly recommend to the 
intermediate to above Atari Owners. Both are similar to previous 
. books, but cover new ground. 

The Master Memory Map by Craig Patchett and Robin Sherer 
(Reston, $16). The first memory map for the Atari was done by Robin 
Sherer when he owned Education Software. The first edition was just 
a xerox’ed sheet of locations and their uses; but was quickly expand- 
ed to a 30 page, breezy and easy to understand booklet. Last year, lad 
Chadwick came out with a 194 page book, Mapping the Atari (Com- 
pute!, $15) covering every memory location quite well but not as enter- 
taining as Robin’s book. Now we have the latest, The Master Memory 
Map, with 361 pages, covering everything, and is a real joy to read. It 
has 13 appendices, 67 figures, and covers the XL computers. You'll 
love it. 

ABC’s of the Atari Computers by Dave Mentley (DataMost, $15, 
available from D.E.M. POB Box 325, El Cerrito, CA 94530 with $1.50 
shipping). Written by the past president of ABACUS (Atari Users 
Group in San Francisco), this in an encyclopedia of useful information 
about the Atari. Much of it is gleaned from the best of the user group 
information, it includes many useful programs and hints. Do you want 
to know how to modify your Axlon Ramdisk so it won’t crash with 
some software? What really is a “Framing Error’? Want a program to 
analyze a binary file for the RUN and INIT address? How about the 
printer codes for a large number of printers? It is all here and very well 
written. The book is similar to the also very excellent The Atari Users 
Encyclopedia by Gary Phillips and Jerry White ($20, The Book Com- 
pany), but covers different material and has different programs. 


ACE BAZAAR 


This year our December meeting will include a Bazaar at which 
members may sell or trade their hardware and software with each 
other. To participate as a seller, set up your wares on a table in the 
rear of the room, so as not to interfere with the meeting program. The 
meeting agenda will be short this month to allow time to browse 
among the tables. 

Software must be original and accompanied by the original 
documentation to be eligible for sale at the bazaar. Members are sure 
to find bargains here, and sellers will have some extra money to try 
some new software. Before you leave the meeting, please see our VP, 
Larry Gold, to give him 10% of your gross proceeds. He will make a 
note of your name, address and the amount of your donation to 
WISTEC. WISTEC will send you a receipt you may use for tax deduc- 
tions on your tax returns. Have fun! 


CHRISTMAS PICKS 


by the Editors 

Hardware: The price of an Atari 800 XL is now officially at $120. The 
price is lowered in anticipation of a more cheaply produced model 
next year. If you buy quickly, you might get one produced to sell 
originally at $399. The Indus GT disk drive seems to be the most 
popular double density drive on the market. I've used one for a year 
and love it. You have your choice from among a number of good 
printers in the $300 price range. For a couple hundred more you can 
get near letter quality. You can also get real letter quality with low 
cost daisy wheel printers for less than $500. The Abati seems to be 
one of the better built of these low priced daisy wheel printers. 
Microbits now has an 1100E modem which will switch an incoming 


call to the handset to ring until you pick it up if it doesn't receive a car- 


rier detect from a computer at the other end. A nice feature! The best 
monitor on the market now seems to be a 13” Mitsubishi. But it’s very 
expensive, close to $500! Maybe the technology will be used in less 
expensive models soon. 

Software: Atari users have their choice of several excellent word 
processors which are as good as many used on IBM machines. The 
higher priced Writer's Tool by OSS, and Letter Perfect by LJK are the 
top of the line. But AtariWriter and Letter Wizard are also full-function 
processors and can be purchased for half to one-third the price. Letter 
Wizard is also being marketed with Spell Wizard in a single package 
for under $70. Letter Wizard is the only one of the four which will not 
work in double density. 

The Syn-Apps packages from Synapse Software are also top- 
featured programs. SynCalc is the best spreadsheet program I’ve seen 
for an 8-bit computer. SynFile+ is also the best filing program I’ve 
seen for 8-bit machines. These programs are compatible with each 
other, and they take advantage of virtual memory features permitted 
with the use of Axlon and Mosaic ram disks. How about a 128k 
spreadsheet file on an Atari? SynComm is the most full-featured com- 
munications program on the market now, although a review in the cur- 
rent Analog magazine describes HomeTerm with many of the same 
features. SynCalc and SynFile+ are less than $70. SynComm is under 
$40. 

This has been a difficult year for new arcade games. The best new 
one I've seen is Firebug which appeared in a recent issue of Analog 
magazine. Family games are dominated by the dozen or so faddish 
trivia games. Many people are having a great deal of fun with these. 

A lot of attention in software development for the Atari lately has 
been directed towards various “translator” systems. This will become 
less important the longer the XLs are on the market. But for now, a 
significant portion of Atari software requires a translation to run suc- 
cessfully on the XL. The BossXL seems to be one of the best of these 
for your use. 

Infocom continues to come out with the best text-adventure games. 
And Epyx has one of the better sports games with their Summer 
Games package. We haven’t seen their Baseball game, but they adver- 
tize it as the “best”. Electronic Arts has a wild and popular game in 
their One on One basketball game. 

In strategy games, Electronic Arts has a winner with Archon Il — 
Adept. Strategic Simulations has a real challenge for board 
wargamers in their War in Russia. 


U.S.Adventure 


Although billed as an adventure type game, we found Jerry White’s 
U.S.Adventure by First Star Software the perfect addition to the family 
collection of quiz games. The adventure part of this game is the uni- 
que approach to the question format accomplished by the use the 
joystick to pick the course of the game. 

The educational objective of this game is to teach the history and 
geography of the United States. We feel it does this in an interesting 
way. The object of the game is to acquire as many points as possible. 
The user travels from state to state in the order the states were admit- 
ted to the union by correctly selecting the year in which events in U.S. 
history occurred. The children especially liked the “time tunnel” used 
to display the dates for selection. When a choice has been made the 
user is told either that the event occurred in the year selected, or that 
the event took place before or after the year specified. 

We find this game challenging and fun to play as a group. We 
especially liked the “trivia break” which appears once every ten cor- 
rect events. If your family is into history or the current trivia and quiz 


game fad, this is a game not to be missed. 
— Ruth Ellsworth 


BUMPAS REVIEWS 


GULF STRIKE (Avalon Hill, $30) is a one or two-player strategy 
game simulating a hypothetical operational scenario pitting the USSR 
and Iraq against Iran, supported by the US, Britain, France, Kuwait, 
Saudi Arabia and the Gulf States. The game lasts 25 turns, and will 
end as soon as the USSR player captures 9 of the 21 victory point 
spaces. The turns are divided into 3 Phases: Surface movement; Air 
movement and combat; and Surface combat. The first turn or so might 
take players an hour or more to complete. But after a few turns, the 
time required drops dramatically to as little as 7 or 8 minutes for the 
last turns. | 

The map is very large, smoothly scrolling across more than 24 
screens, containing 17 different types of terrain features. One type of 
terrain seems to have no purpose in the game — seaports. The play- 
ing area covers geography containing more than 100,000 km sq., divid- 
ed into a 55x65 grid of spaces. Iran, Kuwait, Bahrein, Qatar, and parts 
of the USSR, Iraq, Saudi Arabia, and the United Arab Emirates are por- 
trayed on the screen. The players control units differentiated among 
over 30 types, all with varying characteristics. 

The screen is divided into 3 windows. The top contains one screen 
of the map — an area of 8x18 spaces. Below that is a grapics window 
in which up to 19 of the units in a stack are shown, along with the ter- 
rain under the stack. A player may only perform operations on these 
19 units in a stack. All other units in the stack are off-screen. You 
might find it advisable to keep stacks below this 19 unit limit for max- 
imum flexibility. 

At the bottom is a 5-line text window displaying unit characteristics 
and status of the unit selected. A unit is selected by placing the cur- 
sor over a stack on the map; then over the unit symbol in the graphics 
window below the map. Then a combination of joystick directions and 
button pushes permits the player to select from among 6 attack or 
defense formations, and to move the unit. An entire stack may also be 
moved, unless there is a naval unit in the space. A naval unit must be 
moved individually (why?), and no stack may move until all naval units 
are first moved out. 

Air combat occurs when you send a strike of one or more aircraft to 
a space containing an enemy stack. The strike might be intercepted if 
the enemy has aircraft assigned to intercept, and the range and radar 
permit. The success of radar seems to be somewhat random. 

Surface combat occurs between adjacent stacks of enemy units. If 
a unit is adjacent to more than one enemy stacks, it attacks the unit 
with the lowest space number. During combat the map is scanned 
across the screen from the upper left corner. If you can position your 
units above and to the left of enemy stacks, you will have an advan- 
tage by attacking first. Combat results include only loss of hit points 
and elimination. Air strikes may only reduce a target to 1 hit point, but 
naval bombardment may eliminate units. 

All player input is by joystick, except for pushing the Start key at 
the end of each phase. The large, multicolor map is a wonder, coming 
close to the standard set by Chris Crawford in his games, although 
the colors are a bit drab. The programming seems very sophisticated, 
permitting wide player flexibility without getting in the way of play. 
The only indication of a failure by the programmer is the need to hold 
down the Option key for 40 seconds or so while the program loads on 
an XL machine. A poke could have taken care of this without making 
the player guess how long the key must be held down. | look forward 
to seeing this game system developed in future scenarios. Mean- 
while, Gulf Strike will give you several hard-fought play-throughs 
solitaire. You might never run out of combinations of game strategies 
in the two player game. 


IMPERIUM GALACTUM (Strategic Simulations, Inc. $40) is a game 
of space exploration and conquest for 1 to 4 players. Each player 
begins the game at the dawn of space exploration on their home 
world. Players control population, the number of mines and industry 
and farms on controlled worlds, and after you've raised your 
technology level you may also improve the environments on controll- 
ed planets, permitting greater population growth. The winner is the 
player with the largest population when you decide to cease playing. 

Exploration is conducted with transports and warships. Ships are 
built by players from a menu of 8 warships, divided among small, 
medium and large classes. A warship class may also be redesigned 


and renamed. | was unable to successfully redesign any but a small’ 


class of ship. | couldn’t get medium and large classes to take a speed 
characteristic and thereby exit the design mode of the program. 
Players may also build trading ships to transport goods between 
planets. Transport ships carry only armies and colonists. 
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One very unique feature of this program is the ability to conduct 
diplomacy with the computer players. The negotiation menu shows 
your attitude (friendly, neutral or hostile) towards the other players, 
and theirs towards you. You may freely change your own attitude, but 
the computer players will mostly refuse your efforts to change theirs 
towards you. They will also mostly refuse your efforts to get one or 
more of them to help you by attacking another player (computer or 
human). But when they accept your offer, it’s extremely gratifying. 
Another menu permits you to negotiate with independent worlds, 
which can also be valuable allies. 

Warships must be assigned to a task force and given one of 6 mis- 
sions, including Garrison, Repair, Patrol, Commerce Raid, Embargo 
and Move. Combat might occur at the end of one of the two move 
phases each turn. Combat may occur between warships, or between 
ships and planets. Enemy planets may be captured, or just purged of 
all civilization. 

Most of the game is played on the series of text screens. There is a 
strategic map, a 20x40 dot grid showing all the star systems. A 
system may have from 0 to 2 habitable planets. There is a tactical map 
showing approximately % the strategic map, with star systems and 
task forces displayed in larger size. Friendly task forces are shown, 
along with the presence of task forces of other players in systems 
containing friendly task forces. 

The game moves very quickly and is fun to play. No one has to look 
away from the screen for very long while another player does a portion 
of a turn. The phases are broken up so long periods of inactivity are 
avoided. The multi-player feature and diplomacy with the computer 
players make this a fun game of many possibilities in play and out- 
come. 


Stealth (Broderbund) is a 5-level 3D arcade game. You are the pilot 
of a Stealth bomber trying to fight through to the enemy tower and 
destroy it. The tower shows on the screen so you Can see it as you ap- 
proach. Enemy ground batteries and aircraft shoot you on the way in. 
You may also increase energy by flying through energy fields. This 
will extend your range and help you reach your goal. 

The game is played with the joystick and you control speed and 
direction. Altitude is constant. This is an improvement on the Zaxxon- 
type game. Get your joystick muscles limbered up! 


WHISTLER’S BROTHER (Broderbund) is an action adventure game 
reminiscent of Hard Hat Mack. Your quest is to guide your brother 
over territory he covered the year before, to pick up all the chapters to 
his book written for credit at the university. You can find tools to help 
you in your quest and to fight off various beasties who will try to stop ` 
you. 

An interesting feature of this game is you not only have to look out 
for yourself, but you must also protect your brother. If he runs into any 
hazard, it will end your turn as quickly as if you ran into it yourself. 
The only control you have over him is your “whistle” (done with the 
joystick). You must whistle to keep him nearby. If he wanders off, it’s 
danger for you! 

The graphics and sound are excellent in this program. The scenes 
of each chapter are very well and interestingly drawn. This game will 
give you hours of fun. 

— Jim Bumpas, co-editor 


VP’s RAMBLINGS 


All the indications point to an upsurge in Atari use by the public. 
The next few months should see people buying more and more Ataris 
and the other things going with it; i.e., disk drives, printers, modems, 
etc. Since Atari seems to be dropping the price on everything and 
making owning a computer affordable to just about everyone, the user 
groups should be prepared to help the new users. We have started a 
new group of people called “Bugbusters”. These are people all over 
the country who have special skills and are willing to help those with 
problems. You will find the first names and phone numbers and ad- 
dresses in this issue of the newsletter, also these names and 
numbers will be listed on the BBS in a special section called 
“Bugbusters” of course. 


The BBS is going along just fine and we are sorry we had to erase 
all the old passwords and make you call in again so we may bring all 
members up to level 7 to take advantage of the new programs for 
members only. Remember: if you are a member please call and sign in 
again. Thanks. 


Since this is the holiday season | want to wish all of you the best 
and may all your wishes come to pass and may you have nothing but 


happy computing with no errors. 
— LARRY GOLD 


XYGRAF 


PART 1: 


XYENTRY. I've occasionally had need of a program to produce a 
simple X-Y graph. | thought certainly there must be a program in all 
my back issues of magazines. Well, | couldn't find anything | liked, so 
| decided to write my own. ‘XYENTRY’ is the first part of this process. 
It allows you to enter data pairs, modify them, save them to disk or 
recall them as necessary. 

Run the program and choose option 1 to enter or modify data. An 
orange cursor shows where the next X or Y value will be entered. A 
summary of the commands is listed at the bottom of the screen. All 
alphabetic one letter commands require the CTRL key be pressed 
along with the letter. Here is a further description of each of the com- 
mands: 

CTRL (arrows). (move the cursor). The cursor keys move the cursor 
to valid positions on the page. Enter a number to have it occupy the 
position. Numbers can have up to 15 characters, (only 9 or 10 digits 
are valid). The cursor will automatically advance to the next position, 
the next page if necessary. Once entry is started, a blinking cursor 
reminds you entry has to be completed. Not every position need be 
occupied, a DELETE will clean up unoccupied lines. 

CTRL M (Mark a pair). When operating with a set of data you often 
wonder what will it look like to remove this pair or that one. You could 
delete them from the set but you would have to type them in again to 
replace them. Instead, provision has been made to mark the pair at the 
current cursor position with an asierisk. Pairs so marked will not be 
used in calculations or appear on graphs. To make the pair valid again, 
use the Undo command. Marked data does appear when listed and is 
marked with an asterisk. 

CTRL D (mark a pair for Deletion). You can replace a number by 
entering another in it's place but to get rid of a data pair you must first 
mark it for deletion and then do a ‘DELETE’. CTRL D will put a 'D' in 
the mark column. The pair will be removed at the next operation clean- 
ing up the data. 

CTRL U (Undo). To take the asterisk off a data pair at the current 
cursor location, use the Undo command. If the pair is marked for dele- 
tion, the Undo will undo the deletion mark. 

CTRL N (Next page). If there is a next page available for data, it will 
be displayed. The number of pages is equal to the total available data 
pairs divided by 20. The number of pairs is set at 100 in line 20 
(MPTS = 100). Fewer or more pairs can be allowed for, (multiples of 20 
are recommended). Larger numbers tend to slow down the cleaning 
up process considerably. 

CTRL B (Back up a page). To review data on previous pages (or 
change it) you can back up. 

CTRL X (eXchange data). Use this command to switch data in the X 
and Y columns. Only the X column can be ordered. 

CTRL R (Read a file from disk). Data can be entered from the 
keyboard, read off the disk, or a combination of both. Data from the 
disk will be added to data already in the set. If you want only data from 
the disk, you must do a CLEAR before asking for the data. 

CTRL S (Save file on disk). Files are saved with the extension ‘.DAT’. 
If necessary, a cleanup and deletion of data will be done before the 
file is saved. 

CTRL O (Order the data). For some operations like graphing the 
data must be ordered. The ordering is done on the X column of values 
— a cleanup of data precedes the sorting. 

CTRL E (write Equation to change values). Suppose you want to 
graph log(Y)'s rather than Y's. Using this command you can write a 
Basic line (line #980) which is inside a loop indexed by J running over 
the available data. The line Y(J) = LOG(Y(J)) changes all Y’s to log Y’s. 
When prompted with the 980, you can write any valid Basic line using 
the variables X(J), Y(J) and J. It is possible to write incorrect lines or 
lines which will not work with some values (taking the square root of a 
negative number for example). If you get an error message, you should 
check your data again as it may have been partially transformed. If 
you ask for this option when there are no entries, it will be assumed 
you wish to create X values using an equation. You will be asked for 
the maximum entry you want to create. For example, to set up 40 
values of X in increments of 5 you could set the maximum to 40 and 
enter X(J) = J*5. 

ESC (ESCAPE to menu). Use this command to leave the data entry- 
modification program and automatically load other programs. 

DELETE (Delete lines marked for deletion). A clean up of data will 
take place removing all unused lines and eliminating those marked 
"I 


CLEAR (Clear out all data). 
CTRL F (list Files from disk). Only .DAT files are listed. 
CTRL T (sTatistics). Simple statistics are given for column Y. 
CTRL L (List data on printer). Values are listed in E format. The 
variable NDP in line 30 controls the number of decimal places. : 
Numbers are truncated after the last decimal point, not rounded. 
This is only the first part of ‘XYGRAF’. The part that does the actual 
graphing should be finished by next issue. | welcome comments and 
suggestions, | know there could be some improvements. I'm aware of 
the flickering when numbers are entered. It has to do with the display 
list interrupt routine using WSYNC which is affected by the keyclick 
routine. De Re Atari recommends using VCOUNT or rewritting the 
keyboard handler. | haven't had time to try either of these solutions 
et. 
Ç — Stan Ockers 
R.R. #4, Box 209 
Lockport, IL 60441 


FROM THE LIBRARY 


First of all, | want to apologize to all of you who have sent for disks 
and library lists for the slow service you have received during the past 
3 months. | assure you we will do our best to improve our service to 
you as things smooth out over the next couple of months. 

I also feel an explanation is in order. The main reason for this is my 
employer for the past 24 years decided to discontinue serving Eugene. 
This left me and my family in a difficult position. We had only a very 
short time to decide whether to stay in Eugene where we have lived all 
of our lives or to accept a company transfer to a location we do not 
feel is as desireable a place to live. 

| have decided to give up a career in the airline industry and take up 
a new career. Just what this new career will be, | don't know. The main 
thing is we have now made the commitment to stay in the Pacific Nor- 
thwest. If any of you know of any openings in the airline industry in 
station operations, dispatch, cargo service, etc., let me know. 

Anyway, back to the library ... by the time this newsletter reaches 
you, a new library list should be ready. New material has been coming 
in and by the time we have it sorted and checked, the library list is out 
of date. The target date to have the list off the press is December 1. 
This date may slide a bit. 

Several people have asked what we do with a program when so- 
meone sends one in for the newsletter or library exchange. | thought | 
would pass these tips along to you. Perhaps they will save us all some 
time. The first step when | receive a program is to make a back up 
copy. | learned this the hard way a long time ago. 

The next step is to try and check the various directories to see if 
this program duplicates a program in the library or is something which 
could be covered by copyright laws or perhaps is an improved version 
of something in the library. 

The third step is to run the program and see exactly what the pro- 
gram does, and then | deliberately try to make it crash. Is the program 
properly TRAPped? What happens if false information is entered? If 
the program is set up for use with a printer, what happens if the 
printer is not turned on? Can | get back into the program or will it 
crash or lock up? 

Assuming the program passes these tests, | then pass it along to 
the editors of the newsletter or the educational groups for them to try. 
If the program does not pass the tests, | usually will try and fix it or 
ask someone in the club to take a look at it or even send it back to the 
author. The better your program is, the better we like it. Documenta- 
tion on the disk is greatly appreciated too. 

PRICE ADJUSTMENTS — Effective with the new library list, we will 
be adjusting the price of all disks to a flat charge of $10 single sided 
and $15 double sided. This is a slight increase for some disks and a 
reduction for others. This price includes postage and handling to all 
addresses in the USA, Canada, and all APO and FPO military ad- 
dresses. Outside the USA and CANADA please add a flat charge of 
US$2.00 for airmail service. This is a flat charge regardless of how 
many disks you order whether it be 1 disk or 50 disks being send to 
addresses outside the USA and Canada. 

Until next year, HAPPY HOLIDAYS from the librarians and the rest 
of the Ness family. 

— Ron Ness 
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18 TRAP 888:G6051B8 988:PRINT CHR$C125); 
TIL$ 

28 REM XX GET FILE NAME 

i8 PRINT ' by Pavid Fuller" 


48 PRINT :PRINT " How may drives (1 or 


2) ";:INPUT DRIUES 
Sê IF PRIUES(1 OR DRIVES)Z THEN 48 
68 POSITION 2,6:PRINT "1. Filemanager" 
78 POSITION 2,7:PRINT "2, Other" 
88 PRINT :PRINT "Enter Type of File ''; 
:INPUT ANSRS 
38 IF ANSRSO "1" AND ANSRSO"2" THEN 6 
8 

108 IF ANSRS="2" THEN TYP-2:60T0 718 
185 TYP-1 

118 PRINT :PRINT “ Insert Filemanager 
bata Disk" 

i28 PRINT " in Drive 1 and press RETU 
RN'";:INPUT ANSRS 

138 PRINT CHRSC125)2; TTL$: PRINT : PRINT 
" Files on the Disk":PRINT LINS 
i48 INFILS$-"D1:X.X'":0PEN H1,6,9, INFILS 
i58 INPUT Hi;FLNAMS: IF FLHAMSC5,8)="FR 
EE" THEN 188 

168 IF FLNAMSC11,13)-"DAT" THEN PRINT 
FLNAMS C1,8) ;" "SFLNAMS (14,17) 

i78 GOTO 158 

188 CLOSE HI:PRINT LINS:PRINT "Hhich f 
ile to convert “:PRINT " it: INPUT 
&NSRS:INFILS-"D;":INFILS(3)-ANSRS 

198 INFILSCLENCINFILS) +i)". FMT" 

288 REM XX GET AND DISPLAY FIELDS 

218 PRINT CHR$(125); TTL$:POKE 752,8 
228 OPEN H1,4,8,INFIL$ 

238 INPUT #1; NUMFLDS 

248 INPUT #1;FLONS 

258 MAHLEN-8 

268 FOR Nzi TO NUMPLDS: INPUT 11,08:FNCN 
)-A:IF AJMANLEN THEN MAXLEN-A 

278 NEKT N:A-8 

288 CLOSE 41:LE-LENCINFILS) : INFILS CLE- 
I,LE)-",.IDH":ÜPEN H1,4,0,INFILS 

298 INPUT 21,8: NUMR=-A 

Zog FOR N-1 TO 4: INPUT Hi; IDKiL: NEXT MN; 
INPUT Hi; IDXZ:IMPUT Hi; IDHKT 

3i@ PRINT :PRINT "File “;CHRSC34) ; INFI 
LS$CI,LENCINFILS)-42 ; CHR$CS4) ;" has "N 
UMR;" records" 

i28 PRINT :PRINT ,"Field names" 

3i8 PRINT LINS:A-8:B-5:C-21 

348 FOR Nzi TO NUMFLD5KX12 STEP 12: Aa-At 
i 

358 B-B*i1:IF oi THEN €-28: 8-6 

Zeg IF A-1@ THEN C-2 

378 POSITION C,B:PRINT 4;". ";FLONSCN, 
N) 


i88 NEXT N:POSITION 2,16:PRINT LINS 
398 PRINT '" is this the right File (Y 
“Wi ";:IMPUT ANSRÓ 

488 IF ANSRSO"Y" THEN RUN 

401 PRINT :PRINT "How many records to 
copy ";:INPUT CPY 

485 PA55-1:IF CPY<NUIMR THEN Pá55-2 

485 START-1 

418 INFILSGENCINFILS) -2) -"DAT" 

428 REM SE WRITE DIF FILE 

438 PRINT :PRINT " Enter name of outp 
ut file":PRINT " up to 8 characters 

“; INPUT ANSR$ 

448 QUTFIL$="D": QUTFILS(2)=STR$ (DRIVES 
3: OUTFILSC3)="":": OUTFILS (4) =ANSR$: OUTF 
IL$(CLENCOUTEIL$I+1)="". DIF" 
442 IF DRIUES-1 THEM GOTO 458 
443 PRINT :PRINT "Insert destination d 
isk" 
445 PRINT " in Brive 2 and press RET 
URN"; INPUT ANSRS 
458 PRINT CHR$(125);TTLS:PRINT :PRINT 
" Processing...” 
455 POSITION 5,8:PRINT "Total Records: 
"S MURR 
468 POSITION 5,18:PRINT "Field: ";:POsS 
ITION 5,12:PRINT "Record #:"; 
478 QUTS=CHRS (34) 
488 OPEN H2,8,8,OUTFILS 
481 IF PA55-2 AND START) THEN GOTO 48 
6 
485 CLOSE Hi: OPEN H1,4,8,INFILS:NOTE H 
1, SEC, BYTE 
486 IF STARTO1 THEN CPY-HUMR 
498 PRINT 42;"TABLE":PRINT 112;"8,1":PR 
INT 12;QUTS$;QHUTS:PRINT H2;"UECTORS":PR 
INT 12;"8,'";STRSCCPY-START*1):PRINT #7 
;0UT$; QUTS : PRI 
588 PRINT #2:"@,";5TRS CNUMFLD5) : PRINT 
82; 0UTS;QUTS 
216 PRINT N2;"DATA'":PRINT %2;"8, 8": PRI 
NT 12;00T$;QUT$ 
51i 4-8 
515 IF TYP-2 THEN ST-8:FO0R Nzi TO NUMF 
LD5:A5-A*tFMCN) : NEHT H:GOTO 558 
528 FOR Nzi TO NUMFLDS:FTC(DZ1:FNCU-Z1 
4 
5i8 IF FNCN)>100 THEN FT(N)-i:FNCN)-14 
912 A-ATFNCN) 
548 NEXT N:5T-8 
558 IF 0)255 THEN PRINT “Total record 
length over 255 characters, can not c 
avert ":END 
555 FOR Z-1 TO NUMFLDS 
568 IF TYP-2 THEN POSITION 12,18:PRINT 
Z:60T0 588 

9 


lext 


578 POSITION 12,18:PRINT FLDNSCZK12-14 
,C£*12); 

588 PRINT id2;"-1,8'":PRINT #2;"BOT"™ 

538 ST-STtFNCZ) 

688 FOR M-START TO CPY | 

618 POSITION 15,12:PRINT H;" "i 

628 INPUT H1;INPT$ 

630 IF FT(7)-8 THEM PRINT 12;'"-1,8";PR 
INT H2;0UTS$;INPTSCST-FN CZ) *1,5T) ; QUTS 

648 IF FT(Z2-1 THEN PRINT #2;°@,"; VALE 
INPTSCST-FNCZ12 41,5T)) : PRINT. Hä: mun 

658 NEKT K 

655 IF Z-NUMFLDS THEN NOTE HI. 5EC, BYTE 
668 POINT #1,S5EC,BYTE 

678 NEKT Z ! 
688 PRINT H2;"-1,8'":PRINT #2;"E0D":CLO 

SE HZ 

681 IF CPY-NIMR THEN GOTO 6928 

682 PRINT :PRINT :PRINT “Bo you want t 
o copy the rest of the":PRINT " recor 
ds ";: INPUT ANSRS:IF AHSRSCI,12 O"Y" T 


HEN 6958 

683 POINT #i,5EC, BYTE 

684 START-CPY*1 

685 IF DRIUES-2 THEM PRINT :PRINT “Ins 
ert new destination disk ":PRINT " and 


press RETURN -""';: INPUT ANSRS 

686 PRINT CHR$(125);TTL$:G0TO 438 
698 POSITION 5,13:PRINT "© DONE "¿END 
788 REM XX GET OTHER FILE INFO ` 
718 PRINT CHR$C125); TTL$: PRINT " 
vert other file'' 

728 PRINT :PRINT "How many fields in f 
ile ";:INPUT NUMFLDS 

725 PRINT :PRINT “How Many records in 
file ";: INPUT NUMR:PRINT 

726 PRINT :PRINT "How many records to 
copy "ii INPUT CPY: PRINT 

728 IF CPY<NUMR THEN PASS=2 

738 FOR Z=1 TO MUMFLDS 

748 PRINT "Length field H'';Z;: INPUT Nr: 
FNCZ)-K 

758 PRINT "Type of field (5)tring/ (Nu 
mber '"::INPUT ANSRS:IF ANSRS (1,1) Ost 
AND ANSRSCL,1) YN" THEN PRINT "5 or 
K": GOTO 758 

768 IF ANSRSCI,1) O"N" THEN FICZ3-1:60 
TO 788 

778 FICZ3-8 

788 NEKT Z 

738 PRINT CHR$(125);TTLS:PRINT : PRINT 
" H Length Type':PRINT LINS 
888 FOR Z-1 TO NUMFLDS:PRINT " 

"SFNOD ;" or 

810 IF FT(Z)-8 THEN PRINT "String" 
828 IF FT(Z)-1 THEN PRINT "Number" 


Con 


o AL 


difconwv cont 

838 NEXT Z:PRINT LINS 

848 PRINT :PRINT "Are all entries corr 
ect (Y/N) ";:INPUT ANSRS:IF ANSRS (1,1) 
Q"y" THEM GOTO 716 

858 PRINT CHR$ (125); TTLS: PRINT : PRINT 

"Enter name of source file”; PRINT " ex 
ample: TEST.DAT it: INPUT ANSRS 

868 INFILS-"D:":INFILS C32-AN5R$ 

665 START-1 

878 PRINT CHRS$(CI25);TTL$:GO0TO 438 

888 ERR-PEEK (195) : ERLIN-PEEK (186) +256% 
PEEKCI87) : PRINT :PRINT “ ERROR: 
“ERR; AT LINE ";ERLIN 

898 PRINT :PRINT “ Press RETURN to 

continue ";:INPUT ANSRS 

895 RUN 

388 REM NX SET UP VARIABLES 

318 PRINT CHRS$C125) ; : DIM TTLS C342 : TTL $ 
=" CONVERT TO DIF FILE UTILITY" 

928 DIM ANSRS (255), INFILS (17), FLOWS (24 
8),LINS (40), CHGFLDS (12) , FNCTS (48) , FLNA 
H5 C17) , OUTFILS (17) , QUTS C1.) 

938 DIM CHGS (255), INPT$ (255), K$ (12 , SPY 
PES (2),FLD1S C255) ,FLD25 (2552 ,FN C282 , FT 
(28) 

$46. LEE 070i 
ra a "PRINT LINS:A=0:B=5:C=2 

358 RETURN 





92:POKE 787,222:POKE 623,1:605UB 18:RE 
TURN 

12788 DATA 1,7,31,63,63,127,127,255,12 
8,224,248,252,252,254,254,255 

32701 DATA 255,127,127,63,63,31,7,1,25 
5,254,254,252,252,248, 224,128 

12782 DATA 1,1,3,3,7,15,63, 255,128,128 
,192,192,224, 248,252,255 

32703 DATA 255,63,15,7,3,3,1,1,255, 252 
, 240, 224,192,192,128,128 

12784 DATA 24,68,68,126,125,126,255,25 
5,255,128,1853,165,165,183,128,255 
32705 DATA 255,255,126,126,126,60,60,2 
4,192,248,254,255,255,254,248,122 
12786 DATA 28,31,28,16,16,16,16,16,255 
,255,255,255,255,255,255,255 

12787 DATA 16,2,04,9,8,128,2,16,128,25 
4,183,251,127,222,124,56 

12766 DATA 59,62,64,67 

32767 DATA 224,224,128,128,128,128 


@ REM FIGURE 4 

18 REM C.A.I. DRIVER PROGRAM 

28 REM BY JEFF MCHIE 

38 PORTA-54016:REM DATA OR DIRECTION R 
EGISTERS | 
48 PACTL=54818:REM PORTA CONROL REGIST | 
ER, SELECTS WHETHER PORTA MILL BE DATA | 
OR DIRECTION CINPUT/OUTPUT) REG. 

45 POKE PACTL,56:REM SET PORTA AS ñ DI 
RECTION REGISTER 

58 POKE PORTA,8:REM SELECT BIT 3 AS AN 
OUTPUT BIT. OTHER BITS WILL NOT BE US 
ED & WILL REMAIN AS INPUT BIT 

68 POKE PACTL,68:REM RESET PORTA AS À 
PATA REGISTER 

78 REM NOM IF WE SET BIT 3 (PIKE PORTA 
,8) BIT LINE 3 WILL GO HIGH, IF WE POK 
E PORTA,@ BIT LINE 3 WILL GO LOW 

88 REM LINES 18-78 SELECT PORTA,BIT3 A 
5 AN OUTPUT LINE 

38 DIM CSO 

188 INPUT C$ 

118 IF C$-"0N" THEN POKE PORTA,@ 

128 IF CS="OFF" THEN POKE PORTA,8 

136 GOTO 188 

140 REM LIMES 188-138 LET YOU TURN ON 

OR OFF APPLIANCES BY EITHER TURNING ON 
OR OFF BIT 3 


MAGIC IE & 2 


381 IF PEEK(764) O 255 THEN POKE 764,25 
5:RUM "D:MENU" 

i98 IF P(518 THEN 360 

488 GOTO 378 

418 FOR W-1 TO II:NEHT HW: RETURN 

428 REM STRING MAGIC ROUTINE 

438 A= CADOR-PEEK (148) *PEEK (14113256) : À 
H=INT (A/256) ALA- CAHEZ56)  VUT=PEEKCAS - 
4) +PEEK (135) 256 : 02UUT +VNUMAB+2Z 

448 IF A(O THEN A=PEEK (140) +PEEK (141% 
256: GRAPHICS 8:7? "CAN'T GO BELON ADDRE 
$5" :$: STOP 


458 IF PEEK(Q-2) (128 THEN GRAPHICS 0:? ™ 


“VARIABLE H';UNHUM;" NOT A STRING":STO- 
P 

468 POKE Q,AL:POKE Q*1,0H:AH-INT(SIZE/ 
256) :AL-SIZE-CAIKX256) :POKE. 0+2,AL:POKE 
0+3,AH:POKE Q+4,AL:POKE 0*5,0H: RETURN 





6 


o Serene RR | ospr aa 
by Sydney 


H Brown 





8 
i REM J3HOBHOGOHCOOOBOBOHOODHBDOHOOHOOOHE 
3 . 





REM 3662 Uine Maple Drive KE 
4 REN Eugene, OR 97405 XX 
5 REM KH Dec 84 Şiz year x 


à REM KENE EELER EEN 
18 FOR H-PB TO PB+512 STEP Z:POKE H,8: 
POKE Mt1,8:POKE W*2,8:POKE H*3,8:POKE 
Ht4,8:POKE Ht5,8:POÜKE MH*6,8:NEKT W:RET 
URN 
188 GOTO 198 
198 POKE 788,185:POKE 769,236:POKE 718 
sLIGIPOKE 711,198:POKE 712,194:HOLE-8 
195 POKE 756,224:FOR M-8 TO 11: POSITIO 
N Mti,W:? ;"tee off"::50UND O, (Ht1}* 
18,18,16:FOR MI TO 77:NEHT WH: WEXT H 
288 SOUND 8,8,8,8:FOR M-1 TO 58@:NEXT 
Wi? H6;"H":? p” ROUGH":? i5;'" 
sand trap':? t6;" 


Ke 


g 

204 ? H6;" 
= = 
"i z s; 

THE GAME wi 

288 IF PEEK(532733) O 5 THEN 288 

289 ? HH;"H" POKE 756,CB:GOTO 296 

290 IF PEEK(53279)-5 THEM 296 

293 IF PEEK(53279)-6 THEN 388 

295 GOTO 290 

296 HÜLE-MOLE*1:IF HOLE)S THEM HOLE-1 

293 ON HOLE GOSUB 1788,1188,1888,1288, 
14880: POSITION 1,11:? H6;"hole ";HOLE;: 

FOR H-i TO 123:NEKT H;50T0 298 

i88 DEG :POKE 53248,BH:POKE BU, 1: POKE 
91249,HH:POKE HU,G4:POKE HU*1,224;POKE 
HU+2,64:POKE 53258,HH*1:5T-8:DIF-B8 
305 RESTORE 32767:FOR Kä TO S:READ D: 
POKE FU*M,D:NEKT H:hG-98:FC-OS: HND-TNT 


HICINEDTAEEIEIID :? 6:7? H6 
ITXFüselect CHOOSE TH 
THEN" 


des tart iu BEGIN 


CRNO (8)%366) POSITION 1,11:? 8670"; MH 
b; | 
318 POSITION 1,11:? H6;" dÉ TË: 


NTCRND (0)X366):POSITION 1,11:? Gerd: 
WHO; ";:POSITION 6,11:7 H6;"h";ST; 
311 IF STICK(80)-13 THEN AG-AG-1:IF AG< 
8 THEN AG-359 

312 IF STICK(0)-14 THEM AG-AG*1:IF AG) 
152 THEN AG-8 

315 POSITION 18,11:? tib; "CLIMA ;A6;" 
"s 
118 
EXT 
119 
328 
135 


IF STRIG(8)-1 THEN FOR Wi TO 21:8 
W:GOTO Jii 

IF STRIG(8)-8 THEN 319 

IF STICKCG)=14 THEN FC-FC*1:IF FC) 
THEN FC-1 


321 IF STICK(8)-13 THEN FC-FC-1:IF FCI 
8 THEN FC-135 
325 POSITION 18,11:? H6;"force";FC;" 


sãos 
A 


329 IF STRIG(8)-1 THEN FOR Wi TO Zi: 
EXT W:GOTO 328 

358 H=SIN(AG) : Y=COS CAG) :Y-- Y: K-K* (SINC 
WMD) /4) : Y- Y- (COS (HND) /4) 

488 POKE 77,8:IF DIF-1 THEN DIF-8:FC-I 
NT(FC/2) 

482 ST-ST41:POSITION 7,11:7 86;5T;:IF 
FC)21 THEN Bi-INT(FC/1):B2-INT(BIX8.5) 
:B3-INT(B2X8, 75) 

484 SOUND 8,7,8,14:FÜR Wei TO 3:NEXT H 
:SOUMD @,8,8,0 

485 FOR WFC TO 1 STEP -1:POKE 53278,8 
:POKE BY, @:BH=BH+H:BU=BU+Y:POKE BU,1:P 
OKE 51248,BH 

418 IF BU(PB+I10 OR BUPPBK18Z OR BH(4E 
OR BH)288 THEN POKE BU,B:GOTO 588 

428 IF PEEK(51268)-2 AND WC? THEN 688 
438 IF (GIN OR B2-H OR BI-M) AND FC)2 
i THEM SOUND 8,99,18,18:&0T0 435 

431 GOTO 440 

435 SOUND 8,8,8,0:FOR MM-1 TO 28:WEXT 
WH:IF PEEK(S3252) O8 THEN 788 

448 IF FC)42 AND H(BI THEN IF PEEK (522 
52) 08 THEN 788 

499 NEXT W:GOTO 311 

588 RESTORE 32766:FOR Wi TO 4:50UND 8 
,8,8,0:F0R WHEL TO 21:NEXT MH:READ D:S 
OUND 8,D,18,18:F0R MM-1 TO 77 

S85 NEKT HH:NEKT W:FOR M-1 TO 146:NEKT 
H:50UMD 8,8,8,8 

599 ON HOLE GOSUB 1188,1188,1088,1288, 
1408: POKE 53248, BH:POKE BY,1:G0TO 319 
688 SOUND 8,21,18,18:FOR WH=1 TO 14:NE 
MT WH:POP :SOUND 8,8,8,0:POKE BU, 

618 FOR H-i TO 7:FOR MM-15 TO 8 STEP - 
8.5: SOUND 8,14,18,HM:POKE 706,PEEK (GZ? 
78):NEXT WH:NEKT M:POKE 786,92 

698 IF PEEK(53279) O 5 THEM 698 

699 POSITION 8,8:? #6;"K":POKE 53249,8 
:POKE 53258,8:HOLE-HOLE-1:G0SUB 18:G0T 
0 296 | 

788 J-PEEK (53252): IF J=4 THEM FOR Wi 
5 TO 8 STEP -8.25:500ND 8,7,8,HM:NEXT 
WH:POKE BU,8:G0TO 588 

718 IF J-2 THEN POP :SOUND 8,177,8,18: 
FOR Hoi TO 14:MEKT W:SOUND 8,8,8,0:DIF 
-1:60T0 311 

728 IF J-4 THEN H-INT(H/2):60T0 499 
738 GOTO 499 

1088 POSITION 8,8:? 
8:? H5;"JJJJJJK JK J.JKK J.J 
mks mB 


SR POSITION B, 
JJ i Uu "ns 


7 


1882 2? it5;" 
gi JJJJJJKK JKK 
WIZ 


D 
# 


i884 ? H5;"KJ HMESCIIEREEEERUAJJKJUKJ Mi 
Siiv RELA MEN; :BH-48:5U-PB 
med pç 

1188 POSITION 8,8:7 H6;"H": POSITION 1, 
2:? H5;" JJJK IKK SM J JK J JK JKK J KU JJ J 


JJSt JJJjjljiij 
Biwi  JJJJKK JK JJ 


JJJKJKKK IESE) ER” 


vá Sii TARA é Uijiisto ; 
1182 ? H6;" 
UX AALS DEI ISS JJKK.JK 
JKKJK JKK''; POSITION 19,0:7 H6;" DE: 


1184 BH-42:BU-PBtG6I:HH-188:HU-PB*177:F 
U-PB1t233: RETURN 


1288 POSITION 8,8:? H6;“H": POSITION 8, 


8:? #6;" JKJJKKJJJKJ BR — KJJKKJ 
KsitJ JKJJ giiJKK KJJ"; 
1282 ? t6;" uvKJJ JK Ji 
Just KJ JED JuiJKJ JK 
woKJ J" 
# 
1204 ? M6; "KKGRERE) SEAE 


EX tag cei ; :BH-z57:BU- 
PBtO7:HH-198:HU-PBt222:FU-PBt 344 

1285 RETURN 

ii88 POSITION 8,8:? H6;"R'":POSITION 1, 
2:? WH5;" JJK JK JJK JKKTUK JK JJ JK JJ J JK UU 


H Em "j 
1362 ? H6;" UiiZuzZ 


PIDK SK JJJK JJJ ME KKKJJKJJJKK.4J 
KJJKKJK JJ"; : POSITION 18,0:7 #6; i; 
1384 BH-56:BU-PBt56:HH-138: HU-ZPB* 188: F 
V=PBt+318: RETURN 
1488 POSITION 8,8:? H6;"K":POSITION 8, 
B:? Hb;"JK JK JKK KJ JJ JJK KEFE 

ERKKJJJJJ REI Kiwi ": 
1482 ? H5;"JJ.J siivKJ JK AELK 
KJ uizJJKJ JKJKJATREIJ — KJ. di 
SS JKKJ Ë KJTEPGJ RÉI JK"; 
1484 ? H6;"fi m JLBLLIK 

st MK JJKK J JK J Jui 1 SKID; : BH-57 : BU 
-PBt31:HH-188:HU-PB*288;FU-PBtzZjB 

1485 RETURN 

12888 DIM PR$(S58):CB-PEEK (186)-4:POKE 
186, CB: PR$ Cl, 41) -"hhz Tz Dh ERI TRITT 
HVTETDIPIDIDDERG2 al 

32818 GRAPHICS 18:Z=CBK256: AZUSRCADR CP 
R$31,2,4):FÜR H-Z+408 TO Z*511:READ D:P 
OKE H.D: NEXT H:POKE 756,CB 

$2028 FOR HW-Z*3128 TO Z+IS1: READ D:POKE 
W,D:HEXT H:RETURN 

32188 POKE 54279,CB:PB-CBX2561512:PÜKE 


. 51277,3:PÜKE 559,46:POKE 53248, 0: PIKE 


93249,8:POKE 53258,8:POKE 53251,8 
32118 POKE 784,14:POKE 785,8:POKE 786, 


A Y ENTRY BY STAN OCHERS 





49 REM 

ii REM XX HYENTRY 33 
i2 REM XX PART OF XYGRAF NX 
ii REM MRE 5, OCKERS 11/84 XX 
14 REM E ACE Newsletter Dec 84 x 
15 REM XX 3662 Vine Maple br. HE 
i6 REM XX Eugene, OR 97485 NX 
i7 REM XX $12 year xx 


18 BEN XJEOGOOOEOOOOOHOOHROOOEOHIO[OHOHOOEE 

19 REM 

28 MPTS-188:DIM N(28),D5120),R5 (20) ,N 
BLKS (15) ,FNMS C14) , DATS (4) , KLMPTS) , Y (MP 
T51 , MARK CHPT5) :WBLKS=" " 
38 DATS-".DAT":MPGS-MPTS/20:G050B 1088 
"DEEN H1,4,8,"K:":605UB 1888:NDP-5:POK 
E 16,112:POKE 53774,112 

33 REM X MENU X 

188 ? CHRS$(125);:? " MENU":;9 ;2 " 
(1) ENTER AND MODIFY DAT0"”:2 :7 "(2) D 
ROM AN X,Y GRAPH" 

158 GET Hi,K:IF K(49 OR K)5@ THEN 158 

168 IF K-49 THEN ? CHR$(125):GOSUB 185 
B:GOTO ie f 


i78 IF Kap THEM ? :? "MSN 
LESCHTE: :GOSUB 1378:6070 108 


382 REM X MAIN KEYBOARD INPUT X 
318 POKE 694,8:GET Hi1,K:N-CPAGE-C1)X28 
FRON 
320 IF K-28 AND ROM) CI THEN GOSUB 918: 
RON-RON-CI:GOSUR 988 
330 IF K=29 AND ROM(28 THEN GOSUR 918: 
RONCRON+CI:GOSUB 988: UPDAT=CI 
348 IF K-38 AND COL-YLT THEN CUL-HLT:G 
OSUB 928 
3598 IF K-31 AND COL=HLT THEN COL=YLT:6 
OSUB 928 
352 IF K-27 THEM GOSUB 91@:60TO 188 
354 IF K-280 THEN 1788 
368 IF (1047 AND K(58) OR K-43 OR K-45 
THEN 488 
162 IF K-13 AND (HCN) ON9 OR YCD OO N9) 
THEM MARK(N)-MI:POSITION MLT,ROM:? “x 
if 
#; 
363 IF K-4 AND (X(N) ON9 OR YOD ON?) 
THEN MARKCMI=MZ:POSITION MLT,ROMW:? "p" 
;:UPDñ0T=C1 
364 IF K-21 THEN MARK(N)-C0:POSITION M 
LT, RON:? “é a: 
366 IF K-125 THEN GOSUB 918:? CHRS (i275 
);" clearing data":60508 1888:60508 18 
58 
368 IF K-156 THEN GOSUB 1188:G605HB 185 
B 
378 IF K-14 AND PAGECMPGS THEN PAGE-PA 
GE+C1:GOSUS 1858:HUPDAT-CI 
372 IF K-2 AND PAGE)Ci THEN PAGE-PAGE- 


 C1:605UB 1858 


373 IF KS THEN GOSUB 1100:GOSUB 210:6 
0TO 358 

374 IF K=19 THEN 688 

375 IF K-6 THEN GOSUB 918:G0TO 1308 
376 IF K-18 THEN 788 

377 IF K-12 THEN 1486 

378 IF K-i5 THEM 888 

3793 IF K-24 THEN 858 

i88 GOTO 318 

193 REM X INPUT à NUMBER X 

488 TRAP SSe:POSITION COL,ROW:? NBLKS; 
"POSITION COL,ROH:P-2:N$ CL) -CHRS CC) :? 

CHR$ CK) ; 

482 POKE 752,C8:? "ú ";CHR$(CI26); 

418 POKE 694,@:GET #1,K 

428 IF K-155 THEN POKE 752,C1:? ú "3:6 
0TO 588 

438 IF K-126 AND P>Ci THEN P-P-Ci:NS(P 
J=" ";2 CHR$CKI; 

448 IF P>15 THEN 418 

458 IF (1047 AND K(58) OR K=43 OR K-45 
OR K-46 OR K=69 THEN NSCP,PISCHRSCIO: 
? CHRSCK);:P=P+CI 

458 GOTO 418 

988 P-(PAGE-CIJX28*RO0NW: R$=NS:N=VAL (R$) 
918 IF COL=HLT THEN X(P)-N:COL-YLT:GOS 
UB 928:60T0 538 

9228 IF COL-YLT THEM Y{PI=N:COL=HLT: 605 
UB 928:605UB 568 

238 TRAP 48888:60T0 318 

998 POSITION COL,RON:? NBLKS: TRAP 4888 
8:60T0 318 

993 REM X ADVANCE RON, CK FOR PAGE CRO 
SSING % 

368 GOSUB 318:IF R0H-28 AND PAGF-MPGS 
THEN GOSUB 388:RETURN 

378 ROH-ROH*1:G05UB 318:1IF ROW?28 THEN 
ROW=1:PAGE=PAGE+1:G05UB 1858:RETURN 
388 GOSUB 980:RETURM 

323 REM X SAVE ñ FILE * 

688 GOSUB 1188 

518 SOSUB 1288:0PEN 112,8,8,F NMS : PRINT 

#2; ENTR 

628 FOR J-1 TO ENTR 

638 PRINT 82; MARK CID ; "5X C3 rn, "3 Y CD 
648 NEXT J 

658 CLOSE H2:GOSUB 1858:TRAP 48888:60T 
0 J18 


668 POSITION 8,21:? “HH DISK ERROR - 


FILE MOT SAVED ex “:GOSUB 1378:G0TO 
658 

699 REM * READ A FILE X 

788 GOSUB 910:GOSUB 110B:GOSUB 1208:TR 
AP 768:0PEN H2,4,8,FNMS: INPUT Hz NADD 
785 IF ENTRENADDIMPTS THEN POSITION 8, 


8 


21:? S 


ZER FULL EN 
":605HB 1378:G0TO0 758 

718 FOR J=ENTRti TO ENTRtNADD 

728 INPUT 2;M,X,Y 

738 MARKCIDOZH:R CDL ZR: Y CITY 

748 MENT J:ENTR-ENTR*NADD 

798 CLOSE HZ:GOSUB 1170:60518 1858:TRÀ 

P 48888:G0T0 318 

768 POSITION 8,21:? " 
NOT FOUND Hx 

n 758 

739 REM * BUBBLE SORT OF K'S # 

888 GOSUS 1188:7? CHR$(125);" 

DI 

818 SFLGZB:FOR J-i TO ENTR-1:IF R(J+1) 

ARC THEN 838 

828 TEMPCK CI) EX CJJZH CU 13 EK CIR) TEMP: 

SFLG-1:TEMPZYCI IY CLDZY CJ 12 : Y CJH 427 TE 

"P 

838 NEKT J:IF SFLG-1 THEM 818 

848 GOSUB 1858:G0T0 318 

849 REM * EXCHANGE K AND Y DATA E 

858 GOSUB 318:? CHR$(125);" EXCHANGING 
DATA" 

852 POSITION 8,22;? " 


ZK FILE 
":;6050UB 1378:60T 


sorting 


868 GOSUB 918:FOR J-i TO MPTS:TEMP-KCUJ 

):5 CD ZYCI :YCJ) TEMP: NEXT J:GOSUB 195 

8:G0T0 318 

899 REM X POSITION CURSOR ROUTINES # 

388 PMC-PMOFFt4XCROMTCI):FO0R J-C8 TO 3 
;PUKE PHCtJ,C255:NEHT J:RETURN 

318 PHMC-PHOFF*4X(ROHFCI):FOR J-C8 TO 3 
;POKE PMCtJ,CO:NEHT J:RETURN 

328 POKE 53248,48*4COL : RETURN 

343 REM * UPDATE K'S BY EQUATION * 

358 TRAP 328:? CHR$(125):IF ENTR-8 THE 

N 7 :? “MHAY MAXIMUM VALUE FOR ENTRIES 

“i INPUT ENTR 

351 IF ENTR)MPT5 THEN 958 

352 POSITION 2,4:? "988'":2 :? :? "CONT 

u?3?"—— (eC ON 

954 POSITION 7,4 

356 GET H1,K:IF K-155 THEN 968 

358 ? CHRS$CO;:60TO0 956 

260 POSITION 8,2:POKE 842,13:5TOP 

378 POKE 842,12 

375 FOR J-1 TO ENTR 

388 XCGDZECIX1.14152 

985 NEKT J 

386 ? CHR$CIZSI: TRAP 48888:605UB 1858: 

GOTO iie 

390 POSITION 8,21:? "XX ERROR-BE SURE 

AND CHECK ENTRIES XX ":605UB 12178:G0T0 
986 

333 REM X INITIALIZE ARRAYS ETC. # 


1888 N9=3.3E-33:FOR J-1 TO MBPT5:M(J) CH 

3:1YCJZN2: MARK CJ228: NEXT. J:ENTR-B:UPDA 

T-8 

1818 PAGE-1:ROH-1:HLT-7:COL-HLT: YLT-23 

:JLTZ1:MLT-5:C8-8:0171:0255-255: H1--1: 

M2=-2 

1828 RETURN 

1849 REM * DISPLAY ñ PAGE * 

1858 ? CHR$(125);" PAGE '";PAGE;" 
"SMPGS;POSITION 25,C8:? "x": POSITION 
3ji,C0:? "y" 

1851 STRT-(CPAGE-C1)X28:FO0R Gi TO 28: 

POSITION JLT,.:? STRTtJ;" ":POSITION 

WT ER e l 

1852 IF MARK(STRT*.D-Mi THEN POSITION 

BLT, J:? "#" 

i855 POSITION XLT,J:? NBLKS:IF XCSTRT+ 

J) (NI THEN POSITION XLT,J:? H(GTRT4J) 

1868 POSITION YLT,J:? NBLKS:IF Y(STRT* 

J)0N9 THEN POSITION YLT,J:? Y(STRT+J) 

1878 KNEKT J 

1873 REM * PRINT OPTIONS AT BOTTOM X 

1888 POSITION 8,21:? " CTRL (arrows) Mr 

k Del lindo Nxt Bk Kchg” 

1882 POSITION 8,22:? "Rd Sav Odr Eqn E 

5C DEL CLR Fil sTat Lst"':GOSUB 988:605 

HB 9228 

1838 RETURM 

1833 REM * CLEAR UP BLANK SPACES X 

1188 IF LPDAT=O THEM GOSUB 1188:RETURM 


1182 GOSUB 318:J-1:FF-8:? CHR$(1252;"C 
LEANING HP DATA” 
1184 POSITION 8,22:7 " 


fãs 
# 


1188 IF MARK(CJJ-MZ THEN 1128 

1118 IF (X(J)0N9 OR YCJ) ON9) AND J(M 

PTS THEN J-J4*1:G0TO 1168 

1128 FF=J:IF J-MPTS THEN 1168 

1148 IF (KC.J)-N9 OR Y(J2-N93 AND JCMPT 
5 THEN J-J41:G0TO 1148 

1142 IF MARK(JI-M2 AND JCMPTS THEN J-J 
*1:60T0 1148 

1144 IF J-188 AND (K(J)-=N3 OR YC.D-N9) 
THEN 1168 

1158 KCFFI=HCJ : YCFF) Y C.D) : MARK (FF) MÀ 

RKCJI :J-Jt1:FF-FF*1:IF JCMPTStI THEN i 
148 

1168 FOR J-FF TO MPTS:KCJ)=N9:YCJI=N9: 
MARKCJ3Z8:NEXT J:ENTR-FF-1 

1178 J-INT(ENTR/28) :PAGE-J* 1: RONCENTR4 
1-CHI282 : COLZHLT:6G05UB. 988:G605lB 928:U 
PDAT-8:RETURN 

1173 REM * COUNT NUMBER OF ENTRIES X 
1188 J-1 

1184 IF KC.) ON3 OR Y(J) ON9 THEN J=Jt 


1:60T0 1184 

1186 ENTR-J-1:RETURN 

1199 REM X INPUT FILENAME X 

1288 GOSUB 318:POSITION 8,21:? " 
INPUT FILENAME e 

1282 POSITION 8,22:? " b: 
«BAT wi 

1218 P-I:POSITION 12,22:FNM$-"p;" 

1228 GET Hi,K 

1238 IF K-155 THEN 1288 

1248 IF K-126 AND P}3 THEN P-P-1:FNMS( 

PI=" "i2 CHRSCO; 

1242 IF K}96 AND K(123 THEN K-K-32 

1258 IF ((K)47 AMD K(58) OR (K)64 AND 

K(91)) AND P(11 THEN FNMSCP,PY-CHRS CIO 

:? CHRSCIO ; :PZP41 i 

1268 GOTO 1226 

1288 FNMSCPI=DATS: RETURN 

1299 REM X SHON .DAT FILES ON DISK X 

1388 ? CHR$(125):0PEM 12,6,8,"D:X. DAT" 

:TRAP 1340 

1318 FOR K-8 TO 20 STEP 28 

1318 FOR J=i TO 22:INPUT 82;:D5:POSITIO 

H K,J:? D$; NEXT J:NEXT K 

1348 GOSUB 1378 

1368 CLOSE H2:GOSUB 1058:GOTO 316 

1376 POSITION 28,22:? TER 


# 

1388 GET Hi,K:IF K<{}32 THEN 1380 

1338 RETURN 

1399 REM * LIST VALUES ON PRINTER X 

1488 ? CHRSC125):G05UB 1188:NBR-INT(EN 

TR/2):MARG=9-NDP:ODD=0:IF INT(ENTR/2)4 

MENTR/2 THEN NBR-NBRt1:0DD-1 

148i TRAP 1448:0PEM 12,8,8,"P:":CLOSE 

#3 

1482 LPRINT :LPRINT " # 

K Y — USSLPRINT nm tt 
H yee 

1484 LPRINT "rop KI TO NBR: WS=S5TRS (M 

:LZLEN CNS) : LPRINT. NBLKS CL, 4L); M;" "n; 

1405 IF MARKCM OMI THEN LPRINT " ":; 

GOTO 14160 

1486 LPRINT "x n, 

1418 N=KCMD:IF N=N9 THEN LPRINT NBLKS; 

:G0TO 1414 

1412 GOSUB 1450:LPRINT NSLKSCL,MARGI:N 

3; 

1414 N-Y(M):LPRINT "© "::IF N-N9 THEN L 

PRINT NBLK$;" "::G60T0 1418 

1416 GOSUB 145@:LPRINT N5;NBLKSC1,MARG 

$ 


1418 IF M=NBR AND ODD-1 THEN LPRINT :&. 


OTO 1434 
1428 NS=STR$CMENBR) :L-LEN (NS) :LPRINT N 
BLK$ (1,4-L) ; HFNBR;" u; 
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1422 IF MARK(MtNBR) (Mi THEN LPRINT " 
"::60T0 1426 

1424 LPRINT "X mi 

1426 N-H(MtNBRI;IF N-N9 THEN LPRINT MB 
LK5;" “;:GOTO 1430 

1428 GOSUB 1458:LPRINT NELK$EL,MARG);N 
$; 

i438 N-Y(M+NBR):LPRINT " ";:IF N-N9 TH 
EN LPRINT NBLKS:GOTO 1434 

1432 GOSUB 1458:LPRINT NS;NBLKS(i,MARG 
) 
1434 
1436 
1448 
NTER 


NEXT M 

TRAP 48888:605UB 1858:G0TO0 318 
LPRINT :LPRINT :LPRINT "Rx PRI 
ERROR REI: CLOSE. HZ:GOTO 1435 
1449 REM * PUT # IN E FORMAT X 

1458 NFLG-8:N5-5TRSCN) : IF NIR THEN HST 
NS C2) : NFLG-1 

1468 J-i1:DP-8:EM-08:FN8-1:EP-8:EPN-8:;L- 
LEN (N53 

1478 IF N-8 THEN 1558 


i488 IF N$CJ,.) -"." THEN DP-J:J-J41 
1498 IF N$CJ,.)-"8" THEN J=JtisGOTO 14 
8e 

1588 FN8-J! 

1518 J-J*1:IF IL THEN 1558 

1528 IF N$CJ, J) -"," THEM DP-J 

1538 IF NSCJ,.) z"E" THEN EX=J 


1548 GOTO 1518 

i558 IF EX>@ THEN EP-UAL(NS(EH*1)) NS 
EM) -"88808" 

1568 IF LEN(N2) (28 THEN NSCLENCNSI+1)= 
"88888888808888880088' 

1570 IF DP-8 THEN EPN-L-1 

1588 IF DP)8 THEN EPN-(DP-FHB):IF EPN? 
8 THEN EPN-EPN-1 

1596 NS$CIJ-NS(CFNB8):IF DP>FNO THEN NSCB 
P)-N$(DP*1) 

1688 R$-N$(2):NS$ (2) ENS C12 : S (1, (Dm mr 
N$ C3) z" ," :NS CAT ZR: NS CNDP F4) -"E" : EPCEP 
*EPN:NS CADP 45) <4" 

1618 IF EP<@ THEN NS$CNDP45)-"-" 

1628 R$-STRSCABSCEP)) :IF LEM(RS)-1 THE 
N NSCNDP*6)-"8":NS CNDP*7)-R$:60T0 1648 
1638 NŠ (NDP+6)-R$ 

1648 IF MFLG=1 THEN N$(1,1)-"-" 

1656 RETURN 

1699 REM X STATISTICS X 

i788 GOSUB 1188:7? CHR$(125):GOSUB 918: 
TRAP i888 

1718 NBR-8:TÜT-8:BIG-O:LITTLE-1.8E197: 
FOR J-1 TO ENTR 

41712 IF YLJ3-N9 THEN 17:8 

1714 NBR-NBR*i 

i728 TOT-TOTHY (3 

1722 IF Y(J)>BIG THEN BIG=Y E) 


XY ENTRY 


i724 IF VEJCLITTLE THEN LITTLE-Y O) 
i718 NEXT J:HMEAN-TOT/ENTR: TOT=8: MEANSQ 
-HEANKXMEAN 

1748 FOR J-1 TO ENTR:IF YC.D ON9 THEN 
TOT-TOT*Y CJ2 XY CJ) -HEANSQ 

1742 NEKT J:UAR-TOT/(NBR-11:5D-50R (VAR 
) 

1758 ? :7 :7 'JHB3HBOOOOOOOOOHOOOOHOBOHEE 

HEH? “HE STATISTICAL SUMMARY KH"? 
EELER ENKE REENEN ENEE 

1768 ? :? :? “LARGEST VALUE = ";BIG:? 
:2 “SMALLEST VALUE = ";LITTLE 

1778 ? :? "MEAN VALUE = ";MEAN:? :? "N 
UMBER OF ENTRIES = “; NBR 

1780 7 :? "UARIANCE = ";¥AR:7 :7 “STAR 
BARD DEV. = '";5D 

1798 TRAP 48888:605UB 1376:GOSUB 1858: 
GOTO 318 

1888 7 vm HH ERROR CHECK DATA VALUES 
WHE: GOTO 1798 

2999 REM * PM GRAPHICS X 

Zepp GRAPHICS 7:POKE 186,PEEK(CI186)-5:P 
HOPEEK (186) 41:POKE 54279,PM: GRAPHICS 8 
SPOKE 752,1:7 " initializing” 

3818 POKE 708, 34:POKE 789,@:POKE 712,1 
8 

i858 POKE 784,56:POKE 559,46:POKE 5327 
7,3:PÜKE 53256, 7: PMOFF=CPMt2) 4256116 
3969 REM * DISPLAY LIST * 

1878 DLIST-PEEK(568)4256XPEEK (561) : POK 
E DLIST+3,198:POKE DLISTH6, 134:FOR J57 
TO 26: POKE DLIST+J, 136:NEKT J 

1872 RESTORE 3874:FO0R J=1569 TO 1586:R 
EAD A POKE J,A:NEMT J:POKE 512,34:POKE 
S13,6:POKE 54286,122 

3974 DATA 188,72,173,33,6,73,2,141, 33, 
6,141,18,212,141,24,288,184,64 

1879 REM * FLASHING CURSOR SEE COMPUTE 
| DEC '81 X 

1888 RESTORE 3082:FOR J-1536 TO 1568:R 
EAD A:POKE J,A:WEXT J: A-H5R C1536) 

1882 DATA 104,162,17,141,48,2,162,6,14 
1,41,2,169,38,141,26,2,96,173,243,2,41 
,2,73,2,141,243,2,169,15,1461,26,2,96 
3898 RETURN 





MAGIC 1 & 2 


bz 


18 REM EXAMPLE Hi STRING MAGIC 

SB DIM ROMCHRSCI):REM CREATE STRING FO 
R ROM CHARACTER SET 

78 DIM RAMCHRS(1):REM CREATE STRING FO 
R RAM CHARACTER SET 

98 DIM 51$(81,52$(81,5315 (8) , 545 (8) BER 
STRINGS FOR NEN CHARACTERS CSQUARESJ 
168 REM LOAD BIT PATTERNS FOR SQUARES 
118 FOR Wi TO 8 

128 READ C:515 CH, H) -CHRS CC) NEXT H 
i38 DATA 255,129,129,129,129,129,129,2 
35 

146 FOR Wi TO 8 

158 READ C:525 CH, ICCHRS CC) : ENT. H 

168 DATA 8,126,66,66,66,66,126,8 

i78 FOR Wi TO 8 

188 READ C:535CH, FO CCHRS CC) NEXT M 
198 DATA 0,8,68,36,16,68,0,8 

288 FOR H-1 TO 8 

218 DATA 8,8,0,24,24,0,0,8 

228 READ C:545 CH, HU CCHRS CC) : NEXT H 
238 REM SET UP PARMS FOR STRING MAGIC 
248 ADDR=57344:REM ADDR OF ROM CHRSET 


. 258 SIZE=1024:REM MEW SIZE OF VAR. 


268 UMIM-B:REM USE 15T VAR. CROMCHRS) 
278 REM CALL STRING MAGIC ROUTINE 
288 GOSUB 588 

298 REM MAKE ROOM FOR RAM CHRSET 

388 RAMTOP-PEEK(186)-4 

318 POKE 186,RAMTOÜP:GRAPHICS 2*16 
128 REM SETUP PARMS FOR NEKT VAR. 
318 ADDR=RAMTOPX256:REM RAM CHRSET 
148 SIZE-1824:REM SAME AS ROM CHRSET 
158 UMUM-1:REM SAME AS ROM CHRSET 
i68 REM CALL THE STRING MAGIC ROUTINE 


. 378 GOSUB 588 


388 REM MOVE ROM CHRSET TO RAM CHRSET 


| $38 RAMCHRS-ROMCHRS 
488 REM CHANGE ! CHAR TO à SQUARE 


418 RAMCHRS(9,16)-51$ 
428 REM POINT TO REN CHRSET 


. 438 POKE 756,PEEK (186) 


448 REM PRINT SQUARES ON SCREEN 
458 FOR Ki TO 248 


. 468 PRINT if5;"!";:NENT H 


478 REM FLIP THRU DIFFERENT SQUARES 
488 RAMCHRS (9, 16)=525:GOSUB 566 

498 RAMCHR$(9,16)=2535:605U8 558 

588 RAMCHAS (9,16)=545:605U8 568 

518 RAMCHRS(9,16)=539:GOSUB 566 

528 RAMCHRS (9,16)-525:605UB 568 

518 RAMCHRS(9,163-519:G050B 568 

511 IF PEEK(764) O 255 THEN POKE 764,25 
5:RUM ''D:HENLI' 

548 GOTO 488 

558 REM SLOM DOWN 50 HE CAN SEE IT 
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Charlie 


Parker 


568 FOR Hoi TO 33:MENT HW: RETURN 

578 REM STRING MAGIC ROUTINE 

588 A-CADDR-PEEK (1403 *PEEK (1412258) A 
H-INTt4/256) :AL-A- CAHX256) : VUT-PEEK (13 
4) *PEEK (13534256: QCUUT &UNLMKG t2 

538 IF A(8 THEN A-PEEK C146) t*PEEKCIA1)3 
256: GRAPHICS 8:? “CAN'T GO BELOW ADDRE 
55"; A: STOP 

688 IF PEEK(CO-2) (128 THEN GRAPHICS 8:7? 
"UARIABLE H'";UNUM;" NOT A STRING":5TO 
p 

618 POKE @,AL:POKE ü+1,0H;0aH-INT(SIZE/ 
256):AL-SIZE-(CAHX256):POKE 0+2,AL:POKE 
U+3,AH:POKE 0+4,AL:POKE 0+5,AH: RETURN 


18 REM EXAMPLE 112 STRING MAGIC 

58 DIM PM$(1):REM CREATE STRING FOR PL 
AYER/ MISSILES 

78 DIM R15 (12) , R29 (12) :REM STRINGS FOR 
DIFFERENT VERSIONS OF PLAYER (ROBOT) 
88 REM LOAD BIT PATTERNS FOR ROBOTS 

98 FOR Wi TO 12 

188 READ C:R15CH, HI ZCHRS CC) : WEHT H 
118 DATA 0,8,56,92,254,124,68,74,64,16 
8,8,8 

i28 FOR Wi TO 12 

i138 READ C:R29 C4, B -CHRS CC) : NEHT. H 

148 DATA 8,0,56,116,254,124,68,164,4,1 

8,8,8 

i58 REM HAKE ROOM FOR P/M GRAPHICS 

168 RAMTOP-PEEK(186)-4 

178 POKE i186,RAMTOP:GRAPHICS 8 

i88 POKE 752,1:? 

i98 SETCOLOR 2,8,8 

288 REM SETUP PARMS FOR STRING MAGIC 

218 ADDR-RAMTOPX256:REM SET TO PMBASE 

228 53IZE-1824 

218 UNUM-O:REM USE 1ST VAR. (PMS) 

248 REM CALL STRING MAGIC ROUTINE 

258 GO0SUB 436 

268 REM CLEAR P/M AREA 

278 PMSC1,1)-CHR$ CB) : PMS (2) ZPMS C1) 

280 REM INITIALIZE P/M GRAPHICS 

298 POKE 623,16:REM SET P/M PRIORITY 

7988 POKE 54279, RAMTOP:REM SET PMBASE 

318 POKE 784,122:REM SET PLAYER COLOR 

328 POKE 559,46:REM ALLOW DHA P/M GR. 

338 POKE 53256,1:REM SET PLAYER SIZE 

348 POKE 53248,120:REM SET PLAYER P05. 

358 POKE 52277,3:REM TURN ON P/M GR. 

i68 P=636 

378 SP=P-2:PMSCP,P+12)=R15:GOSUB 418 

308 SP=P-2:PMSCP,P+12)=R25:GOSUB 418 





PILOT DISK #3 (disk only) 

RANOSPELL -For beginning spellers. You put the words on 
the screen and the child can study them as long as he 
wants. The words disappear and the child attempts to 
type them in correctly. 

FAMILY SQUARE - A Tic-Tac-Toe type of game but you must 
answer questions before you are allowed to select your 
square. Game is not complete. You must supply the 
questions. 

RHYTIME - Type in a word and then try typing in 
additional words until you find one that rhymes. 
CHRUTIL - A PILOT character maker. 

CHRRET - Utility character saver. 

CHREX - An alternate character set. 

LETTERMATCH - Match the lower case letter on the screen 
with the upper case from the keyboard. 


Best of ACE, Vol. 9 (disk only) 

NEUDOS - prints error messages on screen along with 
error number. 

GLOBAL - Used with Filemanager 800 files. 

FUNART - Used with the "Fun With Art" cartridge. 

TOMB - Use your joystick to find the keys that open the 
treasure chamber in the Pharoah's tomb. 

KRAZY CLIMBER - Use your joystick to climb the outside 
of a building while dodging objects being dropped on 
you. 

MX80DUMP - A revised graphics screen dump for the Epson 
mx80 printer. 

PAINTBOX - An "Etch-a-sketch" type of program written in 
ACTION by Stan Ockers. No cartridge needed. 

ALPHABEE - For the youngster learning the alphabet. Fly 
from flower to hive collecting the letters of the 
alphabet in the correct order. Written in ACTION by Stan 
Ockers. No cartridge needed. 

STRINGMAKER - A machine language string maker written in 
BASIC. 

FLASH - Numbers flash on the screen. A good uay to speed 
up your reading and comprehension. 

BULLANT - A 2 player game from Australia. Move your eggs 
from the bottom nest to the top. 

SUPERLOADER - A method for loading assembler programs 
from vithin a BASIC program. 


ACTION DISK #2 (disk only) 

For the advanced programmer. ACTION CARTRIDGE REQUIRED. 
SYMBOL TABLE - Two versions on this disk. Lists local 
variables by PROC/FUNC and globals at the end of 
compilation. 

SCREEN DEMO - Just what it says. 

CATCH - An error trapping routine that can be used in 
your ACTION programs. 

TIME - A calender. 
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COLOR - Puts color bars on the screen. 

TERMINAL - A modem program in ACTION. Documentation is 
on the disk. 

PAINTBOX - An "Etch-a-sketch" type of program written in 
ACTION by Stan Ockers. 


ACTION DISK #3 (disk only) 

MAZE - Creates a maze that can be shown on the screen or 
dumped to a printer. Size is variable from 1 by 1 (not 
really practical) to 25 by 30. Also has an invisible 
option showing only the outline of the size. 

ALPHABEE - For the youngster learning the alphabet. Fly 
from flower to hive collecting the letters of the 
alphabet in the correct order. Written in ACTION by Stan 
Ockers. 

ESCAPE - Originally written in BASIC by David Bohlke. 
Translated to ACTION by Bob Turner. A 3-D maze escape. 
Use the joystick to find your way out and the trigger to 
see a top view of the maze. 

BOUNCE - A 2 player game from Stan Ockers. Try bouncing 
your man into the sky and landing on a cloud. Miss the 
trampoline and you end up in quicksand. If the bird 
flying around the screen catches you, you're a gonner. 
PAGELIST - An ACTION utility to list an ACTION source 
code file to single sheets on an Epson printer. 

TINTOWIZ - Converts TINYTEXT files to TEXTWIZARD format. 


FILEINDEX (disk only) 

A commercial quality disk inventory program 3 years in 
developement. This makes keeping track of what is on 
which disk much easier. Complete documentation is on 
the disk. 


SOURCE CODES DISK #2 (disk only) 

Another collection of miscellaneous assembly and source 
codes from the newsletter. No documentation - not 
guaranteed to run. Some may be just "program modules" to 
be used within other programs. 


ACE-C is here by JOHN PALEVICH 
Modified by Ralph Walden 
just $10.00 


ATARI COMPUTER ENTHUSIASTS EXCHANGE LIBRARY 
374 BLACKFOOT STREET, EUGENE, OREGON 97404 
(revised 12/1/84) 


EXCHANGE POLICY 

The ACE Exchange Library is a service designed to allow 
the sharing of user-written programs. There are two 
ways to acquire programs from the ACE exchange library: 
By ordering the disk(s) you desire and enclosing the 
appropriate amount of money, or by sending us programs 
you have written and wish to share with others, in 
exchange for your choice of any disk in the library. We 
strongly support this second way of obtaining programs, 
and will go out of our way to help you share your 
programs with other users. All disks (and tapes) in our 
exchange library are available for trade except SCOPY 
810. We do ask that you play fair and do not send 
programs that are copyrighted unless you are the owner 
of the copyright and will agree to share your program(s) 
with others. 


We will not exchange programs that duplicate existing 
programs in the library unless they are improved 
versions. A good example of this is TINYTEXT, which 
appears on several BEST OF ACE disks. The original 
program was written for us by Stan Ockers of Illinois, 
improved by Jim Carr of Oregon, further improved by Dale 
Lutz of Canada, improved by Bill Hardwick of Great 
Britain, and the latest version, an 80 column display by 
Neville Williams of Australia. 


Programs that are submitted must be accompanied by an 
explaination of what the program does and a description 
of any "special" programming techniques used. We would 
also appreciate an accompanying article for the 
newsletter. Any Atari compatable word processor may be 
used or if you don't have one, try our own TINYTEXT (or 
just type it on your typewriter). 


ACE is a nonprofit organization dedicated to helping 
its' members enjoy their Atari computers. Programs in 
the exchange library are contributed by members and 
other user groups. IT IS CONTRARY TO ACE BYLAWS TO 
EXCHANGE COPYRIGHTED PROGRAMS. 


TO PLACE YOUR ORDER 

All disks in the library are $10 each single sided or 
$15 double sided. We have had no problems with this in 
4 years use. 


Disks available for double or single density drives. 
Please specify double density with order. NOTE-do not 
order double (dual) density for the Atari 1050. If you 


NEW DISKS FOR XMAS 


are using the 1050 drive, please order single density 
only. 


All are disks listed are available on tape unless marked 
"disk only" next to the title. 


To order any of the programs, send your check, payable 
to "ATARI COMPUTER ENTHUSIASTS", in the appropriate 
amount and your request to: Atari Computer Enthusiasts, 
374 Blackfoot Street, Eugene Oregon 97404 


In order to keep our costs down, we are not equipped to 
handle any credit card billings such as VISA or MASTER 
CHARGE. 


Prices include postage in the USA and CANADA. FOR 
ORDERS TO ADDRESSES OUTSIDE THE USA AND CANADA, please 
add US $2.00 per order (regardless of how many disks 
ordered) for airmail service. 


OTHER ITEMS AVAILABLE DIRECTLY FROM OUR MEMBERS 


Best of ACE books - bound editions of the ACE 
Newsletter. 

Volume 1 covers all of the issues of the ACE newsletter 
from the first issue thru June of 1982. 

Volume 2 covers July 1982 to June 1983. 

Volume 3 covers July 1983 to June 1984. This is an 
excellent value. These books are only $12.00 each (add 
$2.00 extra per book for airmail postage). Order 
directly from: 


Softfinder 1.2 

Softfinder 1.2 is a composite index to Atari related 
articles in 5 popular periodicals from April 1981 thru 
June 1983. It is especially helpful for those of you 
who perhaps picked up a magazine off the news stand and 
typed in a program that does not run. The next issue 
of that magazine probably had the "fix" for that 
program. This will help you find it. Periodials 
covered are ACE Newsletter, Analog Computing, Antic, 
Compute, and Creative Computing. The price $7.00 
postpaid in USA & CANADA, US $8.00 elsewhere. Order 
directly from the publisher: 


The above publications must be ordered directly from the 
publisher. DO NOT send your order to ACE. 


Jim Carr. Vallev Soft. 2660 S. ll. DeArmond. Corvallis. 


Best of Ace $10 - Games 


Best of Ace #11 - Utilities PE 12 





STRING MAGIC 


(reprint: Starfleet, November, 1984) 


If you already know how to use Atari strings to create and modify 
character sets, move player-missiles smoothly and to perform anima- 
tion by page flipping, then this article is not for you. However, if you 
want to know how to do these things (and more) then read on. The key 
to all this is a routine | call string magic. The routine allows you to 
modify the address and size Of any string variable. So what? While 
this is no fantastic accomplishment, once you know how to do this a 
new whole world of “string magic” becomes available. 

USING STRING MAGIC 

To use the string magic routine you must first initialize the follow- 
ing variables: 

ADDR — this parameter must contain the new address to which 
you want the string to point. 

SIZE — this parameter must contain the new size of the string 
variable. Even if you are not changing the size, you must still initialize 
this variable to the desired size. 

VNUM — this parameter must contain the variable number of the 
string to be modified. This tells the string magic routine which string 
variable is to have its address and size changed. 

After these parameters are set to the desired values, then you can 
call the string magic routine simply by doing a GOSUB to the routine. 
The routine can be placed anywhere in your program since there are 
no GOTOs or GOSUBs in the routine. A note of caution — the variable 
numbers are assigned by BASIC as the variables are entered, not 
necessarily the order they appear in the program. for example, if you 
entered the Line 50 B$-AS$ before entering the Line 10 DIM 
A$(40),B$(40), then the varialble number for the string B$ will be zero 
and the string A$ will have a variable number of one (variable numbers 


HOW IT WORKS 

The string magic routine works by changing the Variable Value 
Table BASIC builds. By changing values in the table, we can change 
the address and size of any string. For you hackers there is a com- 
plete description of how the routine does this at the end of this arti- 
cle. For the rest of you who just want to use the routine, there are 
Several things you should keep in mind. The routine can be used 
whenever you want to move large sections of memory around quickly 
(such as moving the standard character set from ROM to RAM) or 
when you want to change sections of memory quickly (as with 
player/missiles). For example, if you point the string RAMCHRS to the 
area of memory where you want the character set to be in RAM, then 
to move the character set from ROM to RAM can be accomplished 
simply by using the statement RAMCHR$ = ROMCHRS. There are 
Some limitations on the routine. The minimum address to which you 
can point a string is the address of the string/array area set up by 
BASIC. The String/array area is located immediately after your pro- 
gram. Thus, you cannot point a string to any memory address lower 
than the end of your program. If you try to set the address of a string 
to a lower memory address, then the routine will display an error 


variables. If you try to change the address or size of a variable which is 

not a string, then the routine will display an error message and abort. 
CHARACTER SET MAGIC 

Example program 1 shows you how to use the String magic routine 

to move the standard character set from ROM to RAM, and how to use 

strings to quickly modify the new character set. Before entering the 


ing this and the other example programs, you may omit all the REM 
lines if you like since there are no GOSUBs to REM lines. 

Take a look at example program number 1. The string ROMCHR$ 
dimensioned on Line 50 will be modified to point the standard 
Character set on ROM. You sharp eyed readers may have noticed 
something — the dimensioned size of the variable is only one. Why 
one instead of 1024 (the size of the full character set)? This is to save 
memory. Whenever you DIM a String, BASIC automatically reserves 
Space in the string/array area for the maximum size of the String. 
However, since we are going to change the address of the string so it 
will no longer point to the String/array area, then why reserve room for 
the string? We must DIM the String for at least one or BASIC won't 
like it. The same is true of the RAMCHRS string. The string magic 
routine will be used to point this string to the area of memory where 
we want the new character set. The strings S1$, S2$, S3$ and S4$ will 
contain our new characters — different sizes of squares. 


Lines 110-210 load in the different bit patterns forming the 
characters. If you don't understand how these bit patterns form the 
new characters then see COMPUTE'S FIRST BOOK OF ATARI 
GRAPHICS. 

Lines 240-280 set up the string magic parameters for ROMCHR$ 
and call the string magic routine. The ADDR parameter is set to 57344, 
the location of the standard character set in ROM. The SIZE parameter 
is set to 1024 — the size of the full character set, and the VNUM 
parameter is set to zero — the variable number for the string ROM- 
CHR$. 

Next, Lines 300 and 310 reserve four pages (1024 bytes) of memory 
at the top of RAM. This is where we will put our new character set. 
The GRAPHICS statement on Line 310 is necessary to force BASIC to 
move the display list and display memory under the new RAM top. 
Without this, our new character set will conflict with display memory. 

The string magic parameters for RAMCHRS are set up next. The AD- 
DR parameter points to the newly created space at the top of RAM 
and the SIZE parameter is set to the same size as for ROMCHRS. The 
VNUM parameter is set to one — the variable number for RAMCHRS. 
After calling the string magic routine we can now move the ROM 
character set to our reserved space in RAM simply by moving ROM- 
CHR$ to the RAMCHRS. Since the new character set is now in RAM 
and RAMCHRS points to it, we can now modify the character set by 
changing values in the String. 

Line 410 makes the changes. It changes the exclamation point 
character (!) to our new character contained in the S1$. Don't forget, 
the character set is in internal character order. Table 9.6 in your BASIC 
Reference Manual lists the character order of the internal Character 
Set. To get the position of the bit patterns for a character in the 
Character set, you must multiply the number of the desired character 
by 8, then add one. For example, to find the location of the bit pattern 
for the exclamation point in the String, multiply the character number 
of the exclamation point (one) by eight, then add one. This gives nine 
as the offset. Thus the bit pattern for the exclamation point is in posi- 
tion 9-16 of the String. 

Line 430 points the System to our new character sei and Lines 
450-460 fill the screen with our new character — a square. Lines 
480-530 rotate the exclamation point (now a square) through the dif- 
ferent characters contained in S1$, S2$, S3$ and S4$ (our different 
sizes of squares). Note the GOSUB 560 on each of these lines is to 
Slow down the process so you Can see it. To see how fast you can 
change characters using the string magic method, take out the delay 
by changing Line 560 to just a RETURN. This will allow the character 
to be modified at full speed. 

PLAYER/MISSILE MAGIC 

Program example #2 shows how you can use the string magic 
routine for player/missiles. Using a string for the player/missile 
graphics area allows the players to be moved quickly and smoothly 
simply by changing values in the String. On Line 50 PM$ is DIMed. The 


leg up. By changing from one version to the other, we can make the 
robot appear to walk. The bit patterns for the two versions of our robot 
are loaded into R1$ and R2$ on Lines 90-140. 

Note each version has two blank lines before and after the actual 
robot image. The zeroes at the beginning and end of the DATA 
Statements create these blank lines. The blank lines are necessary to 
keep the player from leaving a “trail” as it is moved up or down. If you 
want to see this trail then change the P = P-2 statement on Lines 370 
and 380 to P = P-3. If you were going to actually move the player up or 


memory under this new top. We will use these 4 pages (1024 bytes) for 
our player/missile graphics area. Line 180 turns off the cursor and 
Line 190 sets the background color to black. The parameters needed 
for the string magic routine are initialized on Lines 210-230 and Line 


the string (the first position of the player/missile graphics area) is set 
to zero with the statement PM$(1,1) = CHR$(0). Then by using the 
statement PM$(2) = PM$(1) we can clear the entire player/missile area 
of 1024 bytes to zero. This takes only a few micro seconds to perform 
aS opposed to several seconds a FOR/NEXT loop takes. 


-» 


After player/missiles are initialized on Lines 290-350 we are ready to 
place our robot on the screen and make him walk. This is done on 
Lines 360-400. By moving R1$ and R2$ through the PM$ we are actual- 
ly moving the player through the player/missile graphics area. The 
GOSUB 410 on Lines 370 and 380 is to slow the movement down so 
we can see it. to get the full effect of how quickly players can be mov- 
ed using the string magic method, take out the delay loop on Line 410 
by changing the line to 410 RETURN. 

(Ed. note: There is another part to this about page flipping which will 
appear in the December issue of Starfleet) ) 
— Charlie Parker 


APPLIANCE INTERFACE 


(reprinted from September, 1983 Computer Squad) 


The Atari home computers are capable of doing much more than 
just playing games and using classic programming applications. The 
joystick ports each contain 16 lines which can be set to input or out- 
put, giving the user a maximum of 64,320 possible external control 
operations. 

It is possible to use one of these lines set to output to turn off and 
on appliances, or to dial your phone under computer control. 

The CAL (computer appliance interface) consists of the following 
circuits: 

. regulated 5vdc power supply 

. two-stage inverting buffer 

. opto-isolator (infra-red) 

. single stage transistor amplifier 
. micro relay 

. macro relay 

The power supply circuit (Figure 1) is constructed out of readily 
available components and is much larger than necessary to power the 
CAI. You may add 3 or 4 extra control line circuits and still have plenty 
of capacity left. 

The main circuit (Fig. 2) shows the hookup of the two stage inver- 
ting buffer, the opto-isolator, and the amplifier powering the micro 
relay. All components listed are from Radio Shack, and readily 
available. the opto-isolator (infra-red) acts as a physical separation bet- 
ween the computer and the 110 oval being controlled. This provides 
the best protection possible so if anything were to go wrong, the com- 
puter won’t get zapped with 100 vac. 

The micro relay specified is manufactured by Allied, Inc., and 
available at 1355 N. McLean Bivd., Elgin, IL. You can substitute any 
5vdc relay which pulls 50 ma or less. The Allied relay can be inserted 
into an IC socket, making construction easier. 

A 9-pin connector connects the CAI to the computer. There are 
several you can use (Atari De9, with De110963-1 shell, or Radio Shack 
276-1538, with 276-1539 shell). Soldering these pins to your connector 
cable and installing in the shell requires a great deal of patience and 
prior experience. Fig. 3 shows the pin outs to use. The device we built 
uses bit Line 3. 

By directing the CAI circuit and adding to the control program, you 
can use bit lines 0,1,2 providing independent control of four separate 
devices. The power supply is more than adequate to power four con- 
trol line circuits. 

Finally, before you attempt to construct the circuit, beware of the 
following warnings (if these don’t scare you off, heat up your solder- 
ing iron and go to it!): 

1) Hooking up any non-standard device to your Atari will void your 
warranty. 

2) Never attack a joystick controller to the connector ports when 
you are running the CAI program. Moving the stick to the “left” posi- 
tion could short a line and burn out the PIA chip. 

3) Check your circuit for shorts, bridges, incorrect hook-ups, etc. 
before powering the device. 

Ok, the warnings didn’t scare you off. The circuit is built and you 
are ready to type in the driver program and try it. But... DON’T!! 
Before you expose your expensive and delicate computer to this 
strange device, let’s bench test the operation to be sure the power 
drain on bit line 3 or the computer power supply does not exceed 
specs. 

To bench test your device, you will need a Simpson 260 test meter 
or its equivalent. first set the test meter on 100 milliamp scale and 
connect the meter in series from the + 5vdc on your power supply to 
pin 7 on the connector. Now connect a shorting line from pin 4 and be 
able to touch the other end to the ground on the power supply. When 
inserting wires into the connector, be careful not to damage the 
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recepticles by using excessive force or too large a wire. 


Touch the shorting line to ground. You should hear the macro relay 
pull in, and your meter should read less than 50 milliamps. Next 
remove the test meter. Connect the + 5vdc directly to pin 7, reconnect 
the test meter (now in the 10 milliamp scale) in series with your shor- 
ting line and connect to ground. You should, once again, hear the 
macro relay pull in and your meter should read less than 1.6 
milliamps. If either of these tests don't produce the amperage values 
expected, or the relay does not pull in, something is wrong. STOP and 
check for shorts, current wiring to transistors, etc. Do not try it on the 
computer until the above tests check out ok!! 

When the device bench checks out satisfactorily, type in the driver 
program (Fig. 4), connect the CAI, set for appliance and try it. 

Now the hard part is done, let's proceed to the auto phone dialer. 
Connect the phone to the CAI (fig. 9). Next type in the phone dialer 
program (Fig. 6), remove the phone from its cradle, and input a phone 
number. 

This article only scratches the surface of what can be done to inter- 
face your Atari computer to the outside world. Other possibilities in- 
clude adding a 4-16 line decoder to allow control of up to 16 devices 
using one port plug for remote control of appliances in your home. 

— Jeff McHie 


SYNSTOCK ` 


Synstock (by Steven S. Weston, Synapse Software $40) is another 
fine endeavor by the Synapse people. This program allows you to 
utilize your home computor to prepare stock price charts and to 
analyze stock trends. It is fully compatible with many of the other fine 
“SynApps” series, notablely SynCalc and SynGraph, and allows you 
to easily convert current files in Atari’s Stock Charting to SynStock. 

As usual Synapse has provided a comprehensive 74 page instruc- 
tional book, complete with tutorial. The chart produced by Synstock 
allows you to see daily highs, lows and closing volumes. It also allows 
you to do technical analyses in the form of moving averages and 
oscillators. 

Synstock has the capability to create complete portfolios on your 
data discs. Each disc may hold up to 50 stocks with up to 300 days of 
quote data for each stock. However quote data is limited to a volume 
less than 9,999,999. With high, low, and close prices less than 999,999 
and greater than 0. 

Another nice feature of SynStock is its ability to down load quotes 
from CompuServe. For this you need a standard telephone Modem, at 
least 300 or 1200 baud and a Compuserve LD. password. You are also 
required to use an ATARI 850 Interface Module and an 80 column 
printer using the Parallel Interface cn the 850, with bit-image graphics 
capability. This service allows you to quickly create and update your 
files. 

SynStock also allows you to produce hard copies of any of your 
charts. But it should be noted the types of printers which will fully 
support this printing are severly limited. You might wish to check and 
see if your printer is compatible first, if hard copies are a necessity. 
The only other warning which must go with this program is you must 
have an understanding of the stock market first. SynStock does not 
teach you about the stock market but does give you a valuable tool to 
expand the knowledge you have. This has nothing to do with how easy 
it is to understand the program itself. Synapse has done a fine job of 
making this a very user friendly program. 

— Nick Chrones 


TEE OFF 


This ‘is a quite addictive golf game which looks good. The player 
may choose from among five different courses. The structure of the 
code permits easy expansion of the number of courses. Blue = water, 
Yellow = sand trap; White = ball; Black = hole; Light Green = 
rough & trees; Dark Green = greens, Pink = flag. 

The ball, hole and flag appear after selecting the course and press- 
ing START. With the player as reference point, D is the direction 
towards which the wind is blowing. H is the number of hits so far. 
Angle is the angle at which you wish to hit the ball. The compass has 
0 degrees at the top, 180 degrees at the bottom, etc. Force is the force 
with which you hit the ball, from 0 to 135. 

The ball has a realistically calculated bounce which can bound over 
water or sand. The ball will stop dead if it hits sand, and will slow 
down in the rough. You must hit harder to get out of the sand. If you 
lose the ball, you are sent back to the tee. 

— Sidney Brown 


SPACE WASTE RACE 


“An Animinated Storybook” for Atari 800 and XL Series, published by 
Sunburst Communications, Inc. Designed for use by grades Pre-K 
to 2. 


A REVIEW BY MILES ERICKSON, age 6% 


When you boot up SPACE RACE, you get a menu that says: 
CHOICES 
STORYBOOK 
LOOK, NOD & SHAKE 
FUNTIME 
END 


THE STORYBOOK shows pictures and has some words about 
another moon fighting with earth’s moon. The other moon wants gar- 
bage in space. Earth’s moon doesn’t want garbage in space. 

LOOK, NOD, AND SHAKE would be fun for little kids. You can 
make a moon look different directions, and nod or shake its head. 

FUNTIME has lots of choices: 

MOONDROPS, FALL OUT, MOON PASS, HOLE IN THE MOON, 
MOON LOOKS, AND SCORE. MOON DROPS is the hardest. You have 
to count drops falling off of the moon and then type the right number. 
Other games are easier. Sometimes you have to know numbers, let- 
ters, directions like above, below, up, down, and right and left. 

SPACEWASTE was easy to use. | didn’t look at the manual at all. 
Little kids would have to have help. It was so easy. | think it is best for 
kids age 4-6, not 4-8. The pictures are very good. | liked it, and | think 
most people would like SPACEWASTE. 


Dr. WACKO 


Dr. C. Wacko’s Miracle Guide To Designing Your Own Atari Com- 
puter Arcade Games is a book/disk package for any Atari computer. 


The Guide is aimed at people who have visions of creating a million: 


dollar arcade game. Sound like you? Maybe | should put it differently. 
This package is ideally suited for people who have an adequate 
understanding of Atari BASIC, and want to learn the fundamentals of 
arcade game design and programming in a humorous way. There, 
now, doesn’t that sound more like you? 

The book is a spiral bound paperback with a colorful cover which 
will draw attention from 50 feet away. Enclosed in a packet on the in- 
side of the front cover is the Wacko Disk. The Wacko Disk is a collec- 
tion of all the listed programs in the book, saving you the trouble of 
typing them in. Throughout the book are many comical illustrations 
emphasizing the text and relieving some of the seriousness you might 
find in other such books. Several hilarious characters are introduced 
at the start of the book, and are to reappear later in the drawings. 

The steps to designing an arcade game are thoroughly discussed. 
Topic areas include: Game design elements, graphics modes, 
customizing the character set, character animation and movement, 
joystick control, sounds, and player-missile graphics. Powerful things 
can be done with these techniques, as is demonstrated in Myrtle the 
Turtle, an example game which uses most of the techniques. 

The Wacko Disk is very well set up. The menu corresponds to sec- 
tions of the book, and the programs in those sections can be called up 
from the joystick controlled AUTORUN menu, making life much, much 
easier on the slow typist. 

| found this package to be an excellent buy for the beginning gamer 
who wants to experiment with arcade-type programming. 

Yet even this book doesn’t lack faults. | felt some things weren’t ex- 
plained enough. The method is given very nicely, but often the WHY of 
things isn’t explained quite clearly. | believe the author assumed the 
reader will know the inner workings of the Atari well enough to know 
such things. 

Don't be misled by the title, either. This is not a good investment for 
an advanced BASIC graduate who is looking for a way to create a 
marketable machine language game. The Myrtle the Turtle game 
could not be compared to a popular machine language game. It’s a 
good programming feat for a beginner to see. As I've said earlier, 
however, this is a GREAT investment for beginners of all ages and 
computer interests. 

This is an excellent $24.95 value, and | readily recommend it to 
anyone who falls in the category of beginning arcade game program- 
mer. 

— Tim Ebling 
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Walden Teaches Assembly Language 


(In the last issue, Ralph began his column with the article on the 
65C02, but his byline was left off. He is working hard on the “C” for 
ACE, and should be ready soon —ed.) 


The normal method for accessing one of the handlers (keyboard, 
printer, screen, etc.) from assembly language is to call the ClO utility 
at $E456. However, this requires a previously opened IOCB, and in- 
volves a fair amount of overhead in terms of memory usuage. For ex- 
ample, one could get a key from the user with the instruction: 


JSR $F6E2 ;(400 & 800's only!) The keyboard handler ignores all the 
information the CIO hands it and just returns the next key pressed via 
the A register. The problem with this is it is an "illegal" call, which 
means it won't work on an XL computer. However, there is a method 
for doing this legally to work on all the Atari computers. The way it 
works is to get the address of the routine we want from its legal loca- 
tion, push the address onto the stack, and do a return, which will ef- 
fectively jump us to the address. Note the RTS at the end is nec- 
cessary, and the routine jumped to will return via its own RTS. 


0100 GETKEY LDA $E425 


0110 PHA 
0120 LDA $E424 
0130 PHA 
0140 RTS 


A similar method can be used to send something to the screen: (the A 
register contains the character to send) 


0100 PUTEDIT TAY 
0110 LDA $E407 


0120 PHA 
0130 LDA $E406 
0140 PHA 
0150 TYA 
0160 RTS 


One can also use this method to output a byte to a file which has 
been opened. When CIO opens an IOCB, it puts the PUTBYTE address 
in $346,X (where the X register equals the IOCB times 16). We can use 
that address as a way to bypass CIO for a much faster way of output- 
ting a byte of information. There is one exception, though. The XL 
operating system broke Atari's own rules when writing the printer 
handler, so you will have to store the byte into $342,X (the command 
location) before calling the printer handler. Here is the routine for out- 
putting to a deviceffile: 


0100 PUTBYTE TAY  ;hold the byte while we setup 
0110 LDA $0347,X ;X = IOCB*16 


0120 PHA 
0130 LDA $0346,X 
0140 PHA 
0150 TYA 
0160 RTS 


— by Ralph Walden 





Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit and tax exempt computer club 
and user's group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 


All our articles, reviews and programs come from you, our members. 


Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas Air- 
mail and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep't: 3662 Vine Maple Dr., Eugene, OR 97405. 


President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 
503-689-1513 
Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 
l 503-686-1490 
Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 
| 503-688-6872 
Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 
(503)689-7106 
Editors — 

Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503-484-9925 

E.R.A.C.E. (Education SIG Editor) — 
Nick Chrones, 2333 Monroe St., Eugene, OR 97405 503-343-6966 


Send 50c stamps or coin ($1 overseas) to the Ness' for the new, up- 
dated ACE Library List-new in May 84 ! 


Best of ACE books 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 


George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


SortFinder 1.2 
A composite index of Atari related articles from 5 popular computer 
periodicals from Apr '81 to June '83, including ACE. Only $6 for ACE 
member from: 


Jim Carr, Valley Soft 
2660 S.W. DeArmond 


Corvallis, OR 97333 
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TYPESETTING 
FROM YOUR COMPUTER 


1TARI OWNERS: If you have a modem, text editor, and com- 
nunications program to send ASCII files, you should consider 
he improved readability and cost savings provided by 
[YPESETTING your program documentation, manuscript, 
iewsletter, or other lengthy text instead of just reproducing it 
rom line printer or daisy-wheel output. Computer typesetting 
yy telephone offers you high quality, space-saving copy that 
reates the professional image you want! Hundreds of type 
tyles to choose from with 8 styles and 12 sizes “on line’ 
ind it’s easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


editing & Design Services 
de? j 
30 East 13th Avenue | Eugene, Oregon 97401 
Phone 503/683-2657 


Bulletin Board ... (503) 343-4352 


On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives, an Epson MX80 printer, a MicroBits 1100E 
Modem; running the FoReM Bulletin Board software distributed by 


MicroBits. 


